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Vorwort 


Mit diesem Buch haben Sie kein Dateiverwa1tungspro- 
gramm erworben, obwohl mehrere Programme dieser Art 
enthalten sind. Dieses Buch soll, trotzdem es sehr 
leistungsstarke Programme enthält, vielmehr Anregungen 
und Tips geben, wie Dateiverwa1tungsprogramme aufge¬ 
baut werden können. Es ist ein sehr praxisbezogenes 
Anleitungsbuch fUr die Erstellung eigener Dateiverwal¬ 
tungsprogramme. 

Dabei habe ich größtenteils auf sonst übliche "Datei¬ 
verarbeiter" verzichtet. Diese kleinen Programme die¬ 
nen mehr der Einführung in die Dateiverwa1tung, als 
echten Aufgaben. Falls aber ganz schnell mal ein sim¬ 
ples Datenverarbeitungsprogramm benötigt wird, sind 
auch diese Beispiele direkt einzusetzen. 

Auch auf den BANKMAN, dem Hilfsprogramm zur Bank-Be¬ 
dienung beim CPC 6128, habe ich vollkommen verzichtet, 
denn es geht viel einfacher und dazu noch mit mehr 
Speicherplatz für Daten! 

Ich habe versucht, alle wichtigen Programme so zu be¬ 
schreiben und zu dokumentieren, daß sie sowohl die 
Programme verstehen, als auch an Ihre Wünsche anpassen 
können. Außerdem ist dieses Buch so gegliedert, daß 
Sie dann, wenn Sie die Programme nur benutzen wollen, 
Sie größtenteils nur im Abschnitt Uber die Bedienung 
des jeweiligen Programmes nachschlagen müssen. 

Wenn Sie aber die Arbeitsweise der Programme verstehen 
wollen (wer will das nicht?), erhalten Sie außerdem 
ein Wissen, das Uber das Handbuch-Niveau weit hinaus¬ 
geht und, was mir ebenfalls wichtig erscheint, viele 
kleine Maschinensprache-Routinen, die Sie auch bei an¬ 
deren Programmen sinnvoll einsetzen können. 

Sie erfahren also nicht nur viele Dinge Uber die Da¬ 
te i verwa 1 tung , sondern erhalten auch sehr viele Tips, 
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Vorwort 


Kniffe und Tricks fUr alle CPCs von Schneider. 

Ein gutgemeinter Ratschlag gleich zu Beginn und fUr 
Beginner. 

Man lernt durch Abtippen von Programmen (durch die 
dann auftretenden Fehler) zwar sehr viel, aber bevor 
Sie tage- oder wochenlang nach Fehler suchen, sollten 
Sie sich wirklich Überlegen ob es nicht sinnvoller 
ist, die Diskette mit allen Programmen beim Franzls- 
Software-Service zu bestellen. 


München 


Lothar Miedel 


Wichtiger Hinweis 


Die in diesem Buch wiedergegebenen Schaltungen und Verfahren werden ohne Rück¬ 
sicht auf die Patentlage mitgeteilt. Sie sind ausschließlich für Amateur- und Lehrzwek- 
ke bestimmt und dürfen nicht gewerblich genutzt werden*). 

Alle Schaltungen und technischen Angaben in diesem Buch wurden vom Autor mit 
größter Sorgfalt erarbeitet bzw. zusammengestellt und unter Einschaltung wirksamer 
Kontrollmaßnahmen reproduziert. Trotzdem sind Fehler nicht ganz auszuschließen. Der 
Verlag sieht sich deshalb gezwungen, darauf hinzuweisen, daß er weder eine Garantie 
noch die juristische Verantwortung oder irgendeine Haftung für Folgen, die auf fehler¬ 
hafte Angaben zurückgehen, übernehmen kann. Für die Mitteilung eventueller Fehler 
sind Autor und Verlag jederzeit dankbar. 


*) Bei gewerblicher Nutzung ist vorher die Genehmigung des möglichen Lizenzinhabers einzuholen. 
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1 Einführung in die Datenverarbeitung 


Vorbemerkungen zur Datenverwaltung 

Wer kennt ihn nicht, den guten alten Karteikasten, in 
dem sich - nach irgendwelchen Kriterien geordnet - 
viele Karteikarten befinden? 

Auf diesen Karten wiederum sind Daten, also Informa¬ 
tionen auf geschrieben, die von Wichtigkeit sind. Je 
nachdem, um welche Daten es sich handelt, stellt der 
gesamte Karteikasten eine Lager-, Kunden-, Umsatz-, 
Adressen- oder auch eine andere spezielle Datei dar. 

Während Programme zur Lagerverwa1tung oder zur Verwal¬ 
tung von Kunden-Dateien bereits "genau zugeschnittene" 
Programme sind, ist eine allgemeine Dateiverwa1tung 
noch sehr universell. Erst die Art der Daten und auch 
deren Verarbeitung bestimmt, um welche "Verwaltung" es 
sich hande1t. 

Das bedeutet, ein allgemeines Dateiverwa1tungsprogramm 
kann zwar beispielsweise sowohl zur Adressen-, als 
auch zur Lagerverwa1tung eingesetzt werden, ein Pro¬ 
gramm zur Lagerverwa1tung kann aber höchstwahrschein¬ 
lich nur schlecht zur Adreßverwa1tung dienen? dazu ist 
es zu speziell. 

In vielen Fällen ist die Gestaltung der Karteikarte 
relativ frei. Dies gilt auch fUr die elektronische Da¬ 
te 1 verwa 1 tung . Auch bei dieser kann - wenn das Pro¬ 
gramm es zuläßt - die Bildschirmdarstellung oder auch 
die Ausdrucksform durch den Anwender bestimmt werden. 
Bei verschiedenen Programmen aber ist es nicht mög¬ 
lich. Hierzu wären dann Programmveränderungen nötig. 

Ein allgemeines Dateiverwa1tungsprogramm kann zu einer 
speziellen Dateiverwa1tung werden, wenn bestimmte Kri¬ 
terien starr festgelegt werden. Welche Punkte dies 
sein können, soll später betrachtet werden. Vorher 
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Einführung 


noch einmal zurlick zu ganz allgemeinen Fakten bezüg¬ 
lich einer Dateiverwaltung. 

Um nun einige wichtige Punkte bezüglich einer Datei zu 
klären, werfen wir einen Blick in eine gedachte Kartei 
und greifen uns wahllos irgendeine Karteikarte heraus. 
Zur besseren Veranschaulichung nehmen wir dabei eine 
Karte des guten alten Karteikastens: 


Name :. Vorname : 

Geburtstag : . Beruf 

Strasse :. 

PLZ : . Ort :. 

Telefon : . 


Wie Sie sehen ist die Karteikarte leer, das heißt es 
sind keinerlei Einträge vorgenommen worden, also keine 
Daten vorhanden. Üblicherweise befinden sich in einer 
Kartei oder Datei aber ausgefUllte Karten. Es sind In¬ 
formationen enthalten, die fUr bestimmte Zwecke benö¬ 
tigt werden. 

Obwohl die obige Kartenskizze leer ist, können Sie ge¬ 
nau erkennen, daß es sich um eine Karteikarte handelt. 
Dies liegt an den Randinformat i onen, die Sie unbewußt 
verarbeitet haben. Aus Ihrer Erfahrung heraus wissen 
Sie, daß ein "Informationsblatt" mit Angaben, wie sie 
oben gezeigt sind, zu einer Datei gehört. 

Die Eintragsfelder auf der Karteikarte beziehen sich 
immer auf bestimmte Informationen. Im obigen Beispiel 
ist ein Platz für den Namen, ein anderer für den Vor¬ 
namen usw. reserviert. Das ist wichtig, damit die In¬ 
formationen auch immer richtig zugeordnet werden. 

Diese Karten haben eine "Eintragsschablone"; eine Mas¬ 
ke. Bei käuflichen Karten ist diese sehr oft aufge¬ 
druckt . 
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Einführung 


Bei kleinen privaten Dateien werden oft Karten ohne 
Maske verwendet, die Eintragungen aber trotzdem immer 
in etwa an den gleichen Positionen plaziert. Dabei 
kann es sehr leicht Vorkommen, daß wichtige Informa¬ 
tionen vergessen werden, weil die Maske fehlt. Trägt 
man nach keinem bestimmten Schema ein, dann kann es 
ebenfalls leicht Vorkommen, daß Einträge vergessen 
werden. Auch die Übersichtlichkeit der gesamten Datei 
leidet sehr. 

Damit ln einer Datei eine bestimmte Karte mit den ge¬ 
wünschten Informationen schnell gefunden werden kann, 
werden die Karten im Karteikasten nach irgendwelchen 
Sortierkriterien geordnet abgelegt. Bei einer normalen 
Kartei wird dies meist in alphabetischer Reihenfolge 
sein. 

Bei Kundendateien von Firmen erfolgt aber zur schnel¬ 
leren Unterscheidung von Kunden oft auch die Vergabe 
von Kunden-Nummern und die Sortierung nach diesen. Vor 
allem bei Großfirmen, mit vielen Abteilungen und Ge¬ 
schäftssitzen an verschiedenen Orten, bieten die Kun¬ 
den-Nummern enorme Vorteile zur Unterscheidung. 

Sollen nun bestimmte Daten gesucht werden, so ist in 
jedem Falle nach dem "Namen" der bestimmten Karte zu 
suchen. Das bedeutet fUr den Suchenden, daß er dann, 
wenn er die Datei und deren Struktur noch nicht kennt, 
bei der ersten Karte beginnt und dann mit den folgen¬ 
den Karten weitermacht, bis er die entsprechende Karte 
gefunden hat. 

Sind aber nähere Details Uber die "Ordnungsstruktur" 
bekannt, dann ist in den meisten Fällen die Suche we¬ 
sentlich schneller abgeschlossen. 

Bel alphabetisch geordneten Dateien werden auf die 
Karteikarten Reiter aufgesetzt oder auch Trennkarten 
mit einsortiert, die den Beginn einer neuen Gruppe von 
Karten anzeigen. Das "herausragende" Merkmal dieser 
Trenner ist ein Buchstabe des Alphabetes. Diese Unter¬ 
teilung erleichtert sowohl die Suche, als auch das 
Einordnen. 

Bei umfangreichen Dateien sind eventuell weitere Un¬ 
terteilungen in einer Buchstabengruppe erforderlich. 

So werden dann beispielsweise fUr den Buchstaben "S" 
die Untergruppen "S", "SCH" und "ST" geschaffen. Auch 
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Einführung 


diese Unterteilungen helfen beim - um es einmal sehr 
modern auszudrucken - "handling" der Datei. Also bei 
eigentlich allen Arbeiten, die mit der Datei durchzu- 
ftihren sind. 

Wehe einem Suchenden aber, wenn eine Karteikarte nicht 
an "Ort und Stelle” ist. Wenn sie sich also nicht an 
dem Platz befindet, an dem sie eigentlich sein sollte! 
Diese Karte wird nur noch durch Zufall oder durch in¬ 
tensive Suche danach gefunden. Ordnung zu halten ist 
deshalb unbedingt geboten. 

Ein Nachteil bei einer Datei dieser Art ist aber nicht 
zu Ubersehen: Ein sehne Iler Zugriff kann nur Uber das 
Einordnungskriterium erfolgen. 

Falls dieses (wie im Kartenbeispiel) der Name ist, 
dann ist die Karte oder sind die Karten mit den zu¬ 
treffenden Suchkriterien schnell gefunden. Falls aber 
alle Karten bei denen der Vorname oder die Postleit¬ 
zahl Ubereinstimmt, herausgesucht werden sollen, dann 
mUssen die gesamten Karten der Datei gesichtet werden. 

Diesen Nachteil erkannte auch Herman Hollerith und 
fand eine Möglichkeit, diesen zu umgehen. Mit dem von 
ihm entwickelten Selektionsverfahren wurde im Jahre 
1890 die Volkszählung in den USA durchgefUhrt und de¬ 
ren Auswertung wesentlich erleichtert. 

Das Prinzip war ebenso genial, wie einfach. Stellen 
Sie sich bitte Karteikarten vor, die in einer ganz 
bestimmten Anordnungsweise - jede an den gleichen 
Stellen - Löcher haben. Diese Löcher mUssen so ange¬ 
ordnet sein, daß man mit einem "Stift" durch alle Kar¬ 
ten hindurchfahren kann. 

Wenn nun die Karten zusätzlich noch so präpariert 
sind, daß immer dann, wenn ein Suchkriterium nicht zu¬ 
trifft vom Loch zum Kartenrand eingeschlitzt ist, dann 
bleiben am Stift immer nur die Karten hängen, fUr die 
das gesuchte Kriterium stimmt. Die "Trefferkarten" 
können deshalb dann mittels des durchgehenden Stiftes 
aus der Gesamtkartei herausgehoben werden. 

Diese simple Idee von Herman Hollerith revolutionierte 
die damaligen Dateiverwa1tungen und Karteikästen. 
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Einführung 


Heute im Zeitalter der elektronischen Datenverwaltun¬ 
gen ist diese Methode schon fast wieder in Vergessen¬ 
heit geraten. Computer erlauben bei ausreichendem 
Speicherplatz und bei hoher Arbeitsgeschwindigkeit ein 
schnelles Sortieren von Daten nach allen möglichen 
Sortierkriterien und das auch noch mit mehreren ge¬ 
wünschten Sortiertiefen. Ein Sortieren also, bei dem 
nicht nur nach einem, sondern gleich nach mehreren 
Einträgen sortiert wird. 

Ja, es kann nicht nur einfach sortiert werden, sondern 
die Sortier kriterien können auch noch - wenn es sein 
soll - berechnet werden, wie es beispielsweise für Um- 
satzstatistiken oder für die sogenannte ABC-Analyse 
erforderlich ist. 

Es war aber ein weiter Weg von den Karteikästen mit 
ihren Karten bis zu Dateiverwaltungen mit Computern. 
Erst die Entwicklung des elektronischen Schaltkreises 
durch Jack Kilby (Texas Instruments) ermöglichte es, 
Computer so zu bauen, daß sie vernünftige Ausmaße hat¬ 
ten und nicht ganze BUroetagen belegten. 

Aber das war noch nicht alles, was noch geschehen 
mußte, um elektronische Dateiverwa1tungen für Jeder¬ 
mann zu ermöglichen. Erst durch die Fort- und Weiter¬ 
entwicklungen der integrierten Schaltkreise, die Ent¬ 
wicklung der Mikroprozessoren usw., wurden elektro¬ 
nische Dateiverarbeitungs-Systeme sinnvoll aber an¬ 
fangs leider nur für große Firmen preislich akzepta- 
be 1 . 

Blieb in der Anfangszeit die elektronische Datenverar¬ 
beitung (EDV) auch nur den Firmen Vorbehalten, die 
sich die immer noch riesigen "Computer-Dinosauriere" 
leisten konnten, so ist heute die elektronische Daten¬ 
verarbeitung fast überall im geschäftlichen wie im 
privaten Bereich anzutreffen. 

Mit beigetragen zu dieser hohen Verbreitung der soge¬ 
nannten Personalcomputer hat unter anderem auch Chuck 
Peddle, der den mittlerweise schon legendären PET 
(Personal Electronic Transacter) von Commodore ent¬ 
wickelte. Aber auch der Apple II von Steve Jobs und 
Stephen Wozniak soll nicht unerwähnt bleiben. Dieser 
Computer trug mit dazu bei, daß der weltweite Boom der 
Personalcomputer begann. 
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Einführung 


Nicht vergessen werden soll auch der C-64 von Commo- 
dore, der durch ein gewaltiges Angebot von Spielesoft¬ 
ware vor allem auch ln Deutschland ein Computerfieber 
auslöste. Da aber nicht nur immer gespielt wird, wurde 
auch dieser Computer anderen Aufgaben zugefUhrt. Viele 
davon waren Dateiverwa1tungsaufgaben. 

Es Ist auch kein Wunder, daß die Schneider CPCs in 
vielen Fällen Date 1verwa1tung betreiben dürfen. Sie 
besitzen einen weitaus schnelleren und besseren Basic- 
Interpreter und eine schnellere Diskettenstation. 

Aber nicht nur die Hardware-Voraussetzungen mußten ge¬ 
schaffen werden, sondern auch die Firm- und Software. 
Sie sorgt dafür, daß alle Komponenten richtig zusam¬ 
menspielen und die Elektronik auch das tut, was man 
eigentlich will. 

Die von Bill Gates gegründete Software-Firma Microsoft 
lieferte den ersten Basic-Interpreter, der es auch ei¬ 
nem Laien ermöglichte mit einem Homecomputer umzuge¬ 
hen. 

Viele Dinge liefen also parallel und so blieb es auch 
nicht aus, daß verschiedene Lösungswege ftlr Dateiver¬ 
waltungsprobleme beschritten wurden. Dies betrifft so¬ 
wohl die Hard- als auch die Software. So gibt es heute 
viele Computer und natürlich auch viele unterschied¬ 
liche Computer typen, mit denen Date 1verwa1tungsaufga¬ 
ben erledigt werden und es gibt noch viel mehr Pro¬ 
gramme hierzu. 

Aber ein Hauptproblem ist bei der ganzen Vielfalt doch 
noch vorhanden: 

Jeder hat seine eigenen Vorstellungen von dem was 
eine Dateiverwa1tung können soll und muß, denn in 
vielen Details liegen die Interessen doch sehr un¬ 
terschied 1 ich. 

Zwar gibt es viele "Quasi"-Standard-Programme fUr die 
verschiedensten Computer, aber gerade diese Vielfalt 
fuhrt dann zu weiteren Problemen und Schwierigkeiten. 

Oft ist ein einfacher Datenaustausch zwischen zwei 
verschiedenen Computern nur deshalb nicht möglich, 
weil die Speichermedien des einen, vom anderen gelesen 
werden können (Unterschiedliche Diskettenformate!). 
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Einführung 


Zwar können Daten Uber entsprechende Schnittstellen 
(z.B. RS 232) ausgetauscht werden, dies ist aber oft 
auch nur dann möglich, wenn im Programm eine ent¬ 
sprechende "Ausgabe” und "Eingabe" vorgesehen ist. 

Besonders schlimm ist es aber, wenn auf ein und dem¬ 
selben Computer die Daten nicht zwischen verschiedenen 
Programmen ausgetauscht werden können, weil die Daten¬ 
struktur des "Erzeugerprogrammes" völlig anders ist, 
als es ein Programm zur weiteren Bearbeitung benötigt. 
Vor allem bei käuflichen Programmen kann man sehr 
leicht auf dieses Problem stoßen, wenn man verschie¬ 
dene Programme von unterschiedlichen Herstellern ein- 
setzen will, die auf die gleichen Datensätze zugreifen 
so 1 len. 

Oft kann man sich dann nur sehr schwer welterhe1fen, 
weil die Informationen Uber die Struktur der Daten 
nicht erhältlich sind. Hier kann nur versucht werden, 
die Datenstruktur zu analysieren um sie dann mit klei¬ 
nen Hilfsprogrammen umzubauen. 

Diese zuletzt geschilderten Schwierigkeiten sind zwar 
fUr große Firmen oder fUr Computerbesitzer mit großem 
Geldbeutel kein Problem, aber fUr die anderen? 

Deshalb ist es nicht nur sinnvoll, dann mehr Uber die 
elektronische Dateiverwaltung zu wissen, wenn es be¬ 
reits "brennt", sondern frühzeitig. Dann sind alle 
Probleme nur halb so groß. 

Wie Dateien aufgebaut sein können, wie Dateiverwal¬ 
tungsprogramme arbeiten, wie sie selbst geschrieben 
werden können, welche Überlegungen gemacht werden sol¬ 
len, und vor allem Uber die Date Iverwa1tung selbst, 
soll Ihnen dieses Buch Antworten geben. 

Es beginnt mit sehr einfachen Programmen und steigert 
sich dann von Abschnitt zu Abschnitt. Die vielen Bei¬ 
spiel Programme sollen zeigen, wie Lösungen mit den 
Schneider CPCs realisiert werden können. 
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2 Grundlagen zur elektronischen 
Dateiverwaltung 


Die Grundbegriffe 

Damit Sie sich etwas leichter tun, die speziellen Be¬ 
griffe der elektronischen Datenverwaltung zu verste¬ 
hen, folgt hier eine kurze Gegenüberstellung von Be¬ 
griffen der elektronischen Datenverarbeitung zu sol¬ 
chen der Karteikästen. 

Auch weitere Erklärungen sollen helfen, Dinge die im 
Zusammenhang mit der Verwaltung von Daten stehen, zu 
erläutern. Denn nicht immer ist klar, was mit Record, 
mit sequentiell, mit random, mit Datensatz usw. ge¬ 
meint ist. 


Datei/Kartei - hier handelt es sich im Regelfall 

um den kompletten Karteikasten, 
also um die Gesamtheit aller ge¬ 
speicherten bzw. erforderlichen 
Daten. 


Datensatz - auch Eintrag oder Record genannt. 

Er entspricht einer Karteikarte, 
also zusammengehörigen Daten. Ein 
Datensatz kann ein festgelegtes 
Schema (Struktur) haben. Die Un¬ 
terteilung erfolgt in sogenannte 
Felder. 


DOS - Disk Operating System. Das Be¬ 

triebssystem ftir die Disketten¬ 
station. In dieser Firmware liegt 
fest, wie die Zugriffe auf die 
Diskette erfolgen können. 

Das Disketten-Betriebs-System ist 
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Grund 1agen 


Fe 1 d 


Random-Datei 


relative Datei 


fiir den Daten- und Befehlsaus¬ 
tausch zwischen dem Computer und 
dem Diskettenlaufwerk zuständig. 
Es erledigt also die Steuerung 
der Diskettenstation, sowie die 
Verwaltung auf den Disketten 
selbst. Komfortable Versionen er¬ 
lauben dabei auch relative Da¬ 
teien aufzubauen oder bieten die 
Möglichkeit des D i r ek t.-Zugr i f f es 
auf einzelne Sektoren. 


- oder auch Datenfeld; ein einzel¬ 
ner Eintrag auf einer Karteikar¬ 
te. 


- auch als relative Datei bezeich¬ 
net. Im ursprünglichen Sinne aber 
als Datei mit wahlfreiem Zugriff 
bezeichnet. Ähnlich wie relative 
Datei, aber keine Verweisdateien 
vorhanden. Die Daten liegen nur 
nach der Eintragsnummer geordnet 
vor. Die Stelle zum AuffInden des 
Eintrages wird berechnet. 


- bei dieser kann ein Datensatz di¬ 
rekt geholt werden, ohne andere 
lesen zu müssen. Allerdings muß 
hierzu bekannt sein, wo er zu 
finden ist. Diese Information 
kann beispielsweise in einer Kun¬ 
dennummer stecken. Manchmal gibt 
es auch sogenannte Verweisda¬ 
teien. Bei den Datensätzen ist 
eine festgelegte Struktur zwin¬ 
gend. Der Name beispielsweise muß 
sich bei jedem Eintrag an der 
gleichen Position oder Stelle be¬ 
finden. Der Feldaufbau liegt also 
fest. 
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sequentielle Datei - diese ist dadurch gekennzeichnet, 

daß die Daten nur nacheinander 
gelesen und geschrieben werden 
können. Wenn 100 Datensätze vor¬ 
handen sind dann müssen evtl. 99 
"Uberlesen" werden, bis der ge¬ 
wünschte Satz erreicht ist und 
bearbeitet werden kann. Dies ent¬ 
spricht also in etwa dem Durch¬ 
blättern und Lesen der gesamten 
Datei, obwohl nur Informationen 
Uber den letzten Datensatz ge¬ 
wünscht werden! 

Verweisdatei - eine Hilfsdatei, die beispiels¬ 

weise alphabetisch geordnet ist 
und die Information beinhaltet, 
wo die Einträge, Datensätze etc. 
stehen. 


Zugriffsart - man unterscheidet zwischen direk¬ 

tem und seriellem Zugriff. Die 
Zugriffsart ist vor allem vom 
Speiehermedium abhängig. RAM- 
Speicher ermöglichen den direkten 
Zugriff, Kassetten-Rekorder den 
seriellen. Welche Zugriffsart bei 
einer Diskettenstation möglich 
ist, bestimmt das DOS. 


Egal, ob Sie nun einen Karteikasten oder eine elektro¬ 
nische Dateiverwa1tung sinnvoll einsetzen wollen, im¬ 
mer gilt: 

Alle Datensätze müssen laufend aktualisiert werden, 
denn mit ungültigen Daten ist kaum etwas anzufan¬ 
gen, bzw. die Auswertungen sind fUr die "Katz"! 


In diesem Zusammenhang auch gleich noch ein wirklich 
sehr, sehr wichtiger Ratschlag an alle, die elektroni¬ 
sche Dateiverarbeitung betreiben: 

BACKUP....BACKUP....BACKUP 
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Speichern Sie so oft wie nur (sinnvoll) möglich die 
Daten ab und verfahren Sie am besten nach dem Prinzip: 

Großvater, Vater, Sohn! 

Denn, wenn die Sohn-Diskettendaten nicht mehr gelesen 
werden können, dann haben Sie trotzdem noch zwei Re¬ 
serven, die unter Umständen dann zwar nicht dem ak¬ 
tuellsten Datenstand entsprechen, aber es müssen nicht 
alle Daten neu eingegeben werden! 


Bei 737280 Datenbytes, wie sie bei dem in diesem Buch 
enthaltenen Programm RAND0MD2 möglich sind, wäre das 
eine Menge Arbeit! 
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3 Einfache Dateiverwaltungs-Programme 


3.1 Überlegungen fUr eigene Datetverwa1tungsprogramme 

Wer wegen seiner speziellen Wünsche oder aufgrund von 
Unzulänglichkeiten verfügbarer Dateiverwaltungs-Pro¬ 
gramme die Entscheidung gefällt hat, für seinen 
Schneider CPC ein eigenes Programm zur Verwaltung von 
Daten zu schreiben, wird dies in den meisten Fällen 
mittels der Programmiersprache Basic tun. Nur dort, wo 
schnelle Abläufe erforderlich sind, oder auch dann, 
wenn das Basic keine Möglichkeiten bietet, wird auf 
die Ebene der Maschinensprache ausgewichen. Prinzi¬ 
piell gilt dies auch für die Programme dieses Buches. 
Allerdings gab es noch einen weiteren Grund für die 
Maschinenprogramme dieses Buches: Komfort! 

Auf Maschinensprache-Ebene sind aber auch nur dann er¬ 
hebliche Geschwindigkeitssteigerungen möglich, wenn 
man die Eigen- und Besonderheiten der CPCs berücksich¬ 
tigt und sie ausnützt. Die CPCs haben nämlich einen 
sehr guten und schnellen Basic-Interpreter eingebaut, 
der einige Interpreter anderer Computer weit hinter 
sich läßt. 

Bevor aber mit den eigentlichen Programmierarbeiten 
begonnen wird, sollte sich jeder erst einmal Gedanken 
Uber seine zu lösenden Probleme machen! Einfach nur so 
"drauflosprogrammieren" hat keinen Sinn und führt 
außerdem in den meisten Fällen zu so chaotischen Pro¬ 
grammen, daß spätere Verbesserungen und Erweiterungen 
fast unmöglich, bzw. nur unter hohem Zeitaufwand 
durchführbar sind. 

Vor Eingabe der ersten Programmzeile sollte eine mög¬ 
lichst genaue Analyse des zu lösenden Problems erfol¬ 
gen. Aus dieser ergibt sich dann auch, welche Voraus¬ 
setzungen gegeben sein müssen. Beispielsweise auch, 
welche Hardware erforderlich ist: 
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Reicht der im CPC 464 eingebaute Kassettenrekor¬ 
der? Ist eine Diskettenstation mit ca. 180 KByte 
ausreichend oder muß ein Laufwerk mit 720 KByte 
oder gar eine Harddisc eingesetzt werden, usw. ... 
usw. 

Sind all diese Überlegungen abgeschlossen, dann sollte 
ein Programm-AblaufSchema erstellt werden, damit sinn¬ 
voll und Übersichtlich programmiert werden kann. 

An den folgenden kleinen Beispielen will ich aufzei¬ 
gen, warum diese Überlegungen so wichtig sind. 

Vor allem sind sie auch wichtig, wenn bei einem Pro¬ 
gramm größeren Umfanges nachträglich noch ergänzt wer¬ 
den muß. Sonst verliert man leicht den Überblick, vor 
allem wenn die Zeit des Erstellens schon etwas zurück- 
1iegt. 

Aus einem ursprünglich vielleicht sehr übersichtlichen 
Programm wird dann im Laufe der Zeit ein "Programm- 
Verhau", der von Ergänzung zu Ergänzung immer schlim¬ 
mer wird. Und das Schlimmste: Irgendwann verliert man 
den Überblick total und fängt wieder von vorne an! 


3.2 Beispiel einer ersten kleinen Datei 

Eine kleine Telefondatei soll programmiert werden. Es 
ist keine Ausgabe Uber einen Drucker gewünscht. Das 
Programm soll bei Eingabe eines Familiennamens die zu¬ 
gehörige Telefon-Nummer ausgeben. Aufzunehmen sind et¬ 
wa 20 Einträge, es ist aber zu erwarten, daß die An¬ 
zahl höher werden kann. 

Weitere Ansprüche bestehen für dieses erste Programm 
nicht! 

Eine Datei mit einem derartig geringen Datenumfang 
kann inklusive Programm direkt im Speicher der CPCs 
gehalten werden. 

Die Daten werden zweckmäßigerweise als sogenannte 
Datastatements abgelegt. Dadurch können - falls erfor¬ 
derlich - sehr schnell Ergänzungen und Änderungen er¬ 
folgen. Außerdem hat es den Verteil, daß das Gesamt¬ 
programm (mit Daten) nur aus einem einzigen Teil be¬ 
steht. Es muß also nichts nachgeladen werden. Auch Er- 
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Weiterungen, die nur den Programmablauf betreffen, 
sind schnell erledigt. 

A1s Daten so 1 len 

der Familienname des Teilnehmers 
der Vorname und 
die Telefonnummer 

aufgenommen werden. 

Ohne nun bereits weiteres Uber das Programm selbst 
festzulegen, ist dadurch die Reihenfolge der Ablage ln 
den Datazeilen definiert, nämlich in der Reihenfolge 
ie sie oben stehen. Das durfte die sinnvollste sein, 
ine entsprechende Datazeile könnte also beispiels¬ 
weise folgendermaßen aussehen: 

10000 DATA Meier,Peter,0711/356B79 


Alle weiteren Einträge sollten sinnvollerweise eine 
eigene Zeile erhalten, denn dann sind Änderungen sehr 
schnell zu machen und auch eine gewisse Übersichtlich 
keit ist gegeben. Eine derartige Liste von Einträgen 
könnte nun beispielsweise so aussehen: 


10000 DATA 
10010 DATA 
10020 DATA 
10030 DATA 
10040 DATA 
10050 DATA 
10060 DATA 
10070 DATA 
10080 DATA 
10090 DATA 
10100 DATA 
10110 DATA 
10120 DATA 
10130 DATA 
10140 DATA 
10150 DATA 
10160 DATA 
10170 DATA 
10180 DATA 
10190 DATA 


Meier,Peter,0711/356879 
Huber,MichaeI,089/7765776 
Gernhuber,Emma,0617/663421 
Zeidler,Lothar,08122/344 
Brack,Sieglinde,0211/8890943 
Strobl,Hans,05344/7656 
Faber,Richard,03221/8973 
Rinderle,Heinrich,089/443434 
Axtner,ViIhelm,0433/9824376 
Dutschke,Franz,0211/49823 
Schmid,Ernst,0422/3216 
Schmidt,Egon,0911/54223 
Mayer,Reinhard,632/6546 
Meier,Alfons,0882/66532 
Schneider,Peter,08365/3333 
Mahrbach,VilIi,07131/33435 
Heusenbach,Susanne,04563/59837 
Roehrig,El friede,09873/355 
Schuster,Leonhard,0876/9983 
Preiss, Walter,04134/79833 
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Diese Prcgrammze11en enthalten - wie gefordert - die 
zwanzig Einträge. Eine Erweiterung der Datei erfolgt 
durch HinzufUgen weiterer Datazeilen mit den ent¬ 
sprechenden Inhalten. 

Nun muß noch ein kleiner Programmteil geschrieben wer¬ 
den, der sowohl die Eingabe des Suchkriteriums zuläßt, 
als auch die Suche durchfuhrt. Selbstverständlich soll 
durch diesen auch eine Bildschirmausgabe erfolgen. 

Dieser Teil kann beispielsweise so aussehen, wie das 
nachfolgende Programm1isting. Bitte diesen Programm¬ 
teil nicht abtippen, er dient nur zur Erklärung wie 
derartige Programme arbeiten können. Besser ist dann 
schon PRG2.BAS. 

3.2.1 Baslc-Listlng: PRG1.BAS 

100 'Dateiverwa1tung 1 
110 ' 

120 MODE 2 

130 1 NPUTTami 1 ien-Name"isuch* 

140 PRINT 

150 READ fami1ienname* 

160 1F fami 1ienname*="ENDE" THEN PRINT"Keinen Eintrag gefunden":END 
170 READ vorname*,te1efon* 

180 1F fami 1 ienname*Osuch* THEN 250 
190 PRINT"Fami1ien-Name: "famiIienname* 

200 PRINT"Vorname : "vorname* 

210 PR INT"Te1efon-Nummer: "telefon* 

220 PRINT 

230 PRINT"Bitte eine Taste druecken" :CALL S.BB06 
240 PRINT 
250 GOTO 150 


Vor den Zeilen mit den Datastatements mUssen also 
lediglich diese Programmzeilen eingegeben werden, da¬ 
mit Sie ein kleines Programm zum Auffinden von Tele¬ 
fon-Teilnehmern haben. Da in Zeile 160 die Abfrage 
nach dem Wort "ENDE" erfolgt, muß zu den Datazeilen 
noch eine mit dem Inhalt ENDE angefUgt werden. 

Also: 10200 DATA ENDE 
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3.2.2 

Zeile 

Zeile 

Zeile 

Zeile 

Zeile 

Zeile 

Zelle 

Zeile 

Zeile 


Programmbeschreibung: Dateiverwaltung 1 

(PRGl.BAS) 

100 Das Apostroph-Zeichen kennzeichnet alles in 
dieser Zeile Folgende nur als Bemerkung. Es 
dient demselben Zweck wie der Befehl REM 
(Abkürzung von Remark). 

110 Ebenfalls nur eine Bemerkung. Diese Zelle 

dient nur als Trenner, um den Programmkopf, 
also zum Beispiel um den in Zeile 100 ste¬ 
henden Programmnamen vom Übrigen Programm 
abzutrennen um dadurch die Übersichtlich¬ 
keit zu erhöhen. Das Apostroph-Zeichen ist 
schneller einzugeben als der Befehl REM, 
belegt im Speicher allerdings zwei Bytes, 
REM nur ein Byte. 

120 MODE-Fest1egung auf 80 Zeichen pro Zeile. 

130 Diese fordert die Eingabe des Suchkrite¬ 
riums und Übernimmt die Eingabe als String- 
variable (sucht). 

140 Macht einen Zellenvorschub: eine Leerzeile 
wird ausgegeben. 

150 Ein Datastatement (das erste jeder Data- 

zeile) wird gelesen und der Str1ngvariab 1en 
fami1ienname* zugewiesen. 

160 Prüfung ob Statement-Ende erreicht. Dies 
trifft dann zu, wenn der Inhalt von fami- 
lienname* die Zeichenfolge "ENDE" ist. Ist 
dies der Fall, dann beendet das Programm 
seinen Lauf mit der Bemerkung: "Keinen Ein¬ 
trag gefunden". 

170 Ist der Inhalt von fami11ennamet ungleich 
der Zeichenfolge "ENDE", dann werden durch 
diese Zeile der Vorname und die Telefonan¬ 
gaben in die Stringvariab1en Vorname* und 
telefon* eingelesen. 

180 Falls der aus den Datastatements gelesene 
Familienname nicht mit dem gesuchten Namen 
Ubereinstimmt, dann mit dem Programmlauf 
weitermachen, also weitersuchen. 
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Zeile 190 Die Zeilen 190 bis 240 werden nur dann ab¬ 
gearbeitet, wenn eine Suche erfolgreich 
war. ln dieser Zeile erfolgt die Ausgabe 
des Familiennamens. 


Zeile 200 
Zeile 210 
Zeile 220 
Zelle 230 

Zeile 240 


Ausgabe des Vornamens. 

Ausgabe der Telefonnummer, 
bewirkt einen Zeilenvorschub. 

fordert zu einem Tastendruck auf und wartet 
bis dieser auch ausgefUhrt wurde. 

bewirkt einen weiteren Zei1envorschub. 


Zeile 250 springt die Zeile 150 an, dort macht das 
Programm also wieder weiter. 


Eine kurze Anmerkung zum Programmablauf: 

Nach Eingabe des zu suchenden Strings wird das erste 
Datastatement in der ersten Datazeile gelesen. Danach 
wird geprüft, ob "ENDE" gelesen wurde. Wenn ja, dann 
beendet das Programm mit dem Hinweis "Keinen Eintrag 
gefunden" seinen Lauf. Da es aber Vorkommen kann, daß 
in den Datastatement-Zei1en mehrere Einträge mit dem 
gleichen Fami1ien-Namen enthalten sind und auch alle 
gefunden werden sollen, kann die Meldung auch dann er¬ 
folgen, wenn das Programm bereits schon "fündig" war 
und nun lediglich am Ende der Statements angelangt 
ist. 

"Unschön" an diesem kleinen Programm ist, daß die 
Datastatements nicht in alphabetischer Reihenfolge 
stehen. Die CPCs erlauben es aber - in äußerst komfor¬ 
tabler Welse - Zeilen einzuschieben und auch Zeilen¬ 
nummern zu ändern, wodurch Sie sehr leicht Ordnung in 
diese Folge bringen können. 

Durch den Befehl 

RENUMBER 10000,10000,10 

kann bei Bedarf der Data-Teil auch immer wieder neu 
durchnumeriert werden. 
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Doch berücksichtigen wir noch einen weiteren Punkt! 

Wem ist es nicht schon einmal so ergangen, den Vorna¬ 
men eines Bekannten zwar zu wissen, aber der Familien¬ 
name war "weg"? Selbst wenn dies nur deshalb passier¬ 
te, well man sich immer nur mit dem Vornamen ansprach, 
das Programm kann in der jetzigen Form nicht weiter- 
he1fen. 

Eine kleine Änderung und die Suche kann auch mittels 
des Vornamens erfolgen. Gleichzeitig wurden an dem nun 
folgenden Programm aber noch weitere kleine Änderungen 
vorgenommen. Das nachstehende Programm kann deshalb 
PRG1.BAS ersetzen und ist außerdem auch noch komfor¬ 
tabler und übersichtlicher. 


3.3.1 Basic-List1ng: Dateiverwa1tung 2 (PRG2.BAS) 

100 'Dateiverwaltung 2 
110 ' 

120 MODE 1 

130 PRINT"Telefon-Verzeichnis"SPRINT 
140 INPUT'Gesucht werden soll:"isuch$ 

150 PRINT 

160 PRINT CHR*(24)i:PRINT"F";SPRINT CHR*(24)!:PRINT"amiIienname oder 
170 PRINT 

180 PRINT CHR*(24);:PR 1NT"V"!:PRINT CHR*<24);:PRINT"orname 
190 PRINT 

200 PRINT"(Bitte F oder V druecken!) 

210 x*=L0WER*(INKEY*) 

220 IF x* = "" THEN 210 
230 PRINT 

240 READ fami1ienname* 

250 IF fami1ienname*="ENDE" THEN PRINT"Keinen Eintrag gefunden":END 
260 READ vornamet,te1efon* 

270 IF x*="f" THEN verg1eich*=fami1ienname* ELSE vergleich*=vorname* 

280 IF vergleich*Osuch* THEN 350 

290 PRINT"Fami1ien-Name: "fami1ienname* 

300 PRINT"Vorname : "vorname* 

310 PRINT"Te1efon-Nummer: "telefon* 

320 PRINT 

330 PR I NT"Bi tte eine Taste druecken" :CALL ABB06 
340 PRINT 
350 GOTO 240 

360 '-------.. 

10000 DATA Axtner.Wilhelm,0433/9824376 
10010 ' 
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10020 

DATA 

10030 

' 

10040 

DATA 

10050 

» 

10060 

DATA 

10070 

t 

10080 

DATA 

10090 

1 

10100 

DATA 

10110 

DATA 

10120 

f 

10130 

DATA 

10140 

DATA 

10150 

DATA 

10160 

DATA 

10170 

» 

10180 

DATA 

10190 

f 

10200 

DATA 

10210 

DATA 

10220 

f 

10230 

DATA 

10240 

DATA 

10250 

DATA 

10260 

DATA 

10270 

f 

10280 

DATA 

10290 

♦ 

10300 

DATA 

10310 

1 

10320 

DATA 


Brack,Sleg 1inde,0211/8890943 

Dutschke,Franz,0211/49823 

Faber,Richard,03221/8973 

Gernhuber,Emma,0617/663421 

Heusenbach,Susanne,04563/59837 
Huber,Michae1,089/7765776 

Mahrbach,Wi111,07131/33435 
Mayer,Reinhard,632/6546 
Meier,Alfons,0882/66532 
Meler,Peter,0711/356879 

Prelss,Walter,04134/79833 

Rinderle,Heinrich,089/443434 
Roehrig,El friede,09873/355 

Schmid,Emst,0422/3216 
Schmidt,Egon,0911/54223 
Schnei der,Peter,08365/3333 
Schuster,Leonhard,0876/9983 

Strobl,Hans,05344/7656 

Ze ld1 er,Lothar,08122/344 

ENDE 


Durch die Änderungen der Zellen bis 10000 entstand nun 
ein Programm, bei dem sowohl der Vorname, als auch der 
Familienname als Suchkriterium dienen kann. Außerdem 
wurde noch der MODE und die Ausgabe etwas geändert. 

Daß dieses Programm nun komplett abgedruckt wurde, hat 
den Grund, um vor allem Einsteigern etwas Uber die 
ersten Klippen hinwegzuhelfen. Die Änderungen zum vor¬ 
herigen Programm sind nur geringfügig. Wie Sie bemer¬ 
ken konnten, wurden die Datastatements auch in eine 
Übersichtlichere Form gebracht. 


Beide bisherigen Programme haben aber einen großen 
Nachteil. Sie können nur dann Übereinstimmung fest¬ 
stellen, also "fündig" werden, wenn der Suchstring in 
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genau der gleichen Weise geschrieben wurde, wie er in 
den Statements steht. 

Die Namen "MEIER", "MEier”, "MeieR" wurden bisher 
nicht gefunden werden. Falls also die genaue Schreib¬ 
weise nicht bekannt ist, erfolgen auch keine Ausgaben. 

Bei so einem kleinen Datenumfang kein Problem, der Be¬ 
fehl 


LIST 

zeigt das komplette Programm bzw. 

LIST 10000 - 

zeigt alle Datazeilen und dann kann nachgelesen oder 
auch geändert werden. 

Aber erstens soll es nicht Sinn eines Programmes sein, 
selbst "zu Fuß" zu suchen und zweitens ist dies außer¬ 
dem bei vielen Daten-Einträgen auch nicht gerade das 
"Gelbe vom Ei". 

Deshalb soll dieses Programm nun so abgeändert werden, 
daß dieser Nachteil nicht mehr vorhanden ist. 

145 such*=UPPER*(such*) 

245 fami1ienname*=UPPER*(fami1ienname*) 

265 vorname*=UPPER*(vornametlttelefon^UPPERJltelefon*) 

FUgen Sie bitte diese Zeilen in das Programm ein! 

Nun können die Eingaben sowohl in Groß-, als auch in 
Kleinschreibweise gemacht werden und die Einträge 
"MEIER" werden immer dann gefunden, wenn die Zeichen¬ 
folge stimmt. Die Eingabe von "MEier", "meiER" usw. 
fuhrt also auch immer zum Erfolg. 

Diese simplen Beispiele von Dateiverwa1tung sind aber, 
wie Sie sehen konnten, ein genau festgelegtes Programm 
nämlich eine Telefondatei. 

Adreßverwaltungen sind mit diesen Programmen aber auch 
möglich, nur muß dann alles was mit der Telefonnummer 
zu tun hat, geändert werden. Auf diese Weise können 
Sie kleine Programme fUr verschiedene Zwecke program- 
mieren. 
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Wie Sie sich Überzeugen können, arbeitet das Programm 
fUr den normalen Bedarf schnell genug, solange die An¬ 
zahl der Daten nicht zu hoch ist. 

Wieviele Datensätze Sie mit einem Programm dieser Art 
verwalten kennen, läßt sich nicht ohne weiteres be¬ 
rechnen, denn bisher sind noch keinerlei Festlegungen 
der Eintrags1ängen erfolgt. 


3.4 Abschätz e n der E 1ntragsanzah1 

Damit Sie aber zumindest eine Vorstellung Uber die 
Größenordnung haben, nehmen wir folgendes an: 

Der Familienname ist maximal 15 Zeichen lang, der Vor¬ 
name 10 und die Telefonnummer hat ebenfalls ein Länge 
von 15 Zeichen. Das ergibt pro Eintrag 40 Zeichen. 

Pro DATA-Zeile muß im CPC auch noch die Zei1en-Nummer, 
die Länge der Zeile, das Wort DATA und die Einträge 
selbst - inklusive der Kommata - usw. gespeichert wer¬ 
den. Das ergibt pro Eintrag rund 50 Zeichen. 

Das restliche Programm nimmt auch noch Speicherplatz 
weg. Deshalb stehen dann je nach Länge dieses Pro¬ 
grammteiles noch ca. 30 KByte zur Verfügung. Teilt man 
diesen Wert durch die 50 Zeichen, so erhält man in 
etwa die Anzahl der Einträge. 

Mit dem angenommenen Werten ergeben sich etwa 600 Ein¬ 
träge, das sollte eigentlich fUr eine Telefondatei 
ausreichen, wenn nicht gerade ein ganzes Telefonbuch 
auf genommen werden soll. 

Nun haben Sie also ein kleines Programm in zwei Ver¬ 
sionen kennengelernt, das der» gewünschten Zweck er¬ 
füllt. Allerdings ist es vom Bildaufbau her und auch 
seitens der Bedienung nicht gerade zu den "schönsten" 
zu zählen. 

Um dieses zu verbessern, ist noch einiges zu tun und 
gerade dieses "Drumherum" wird - wie Sie sehen werden 
- einigen Programmieraufwand und darum auch Speicher¬ 
platz erfordern. 

Da sich derartige, kleine Programme zur Demonstration 
wesentlich besser eignen als umfangreichere und auch 
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die kleinen Programmiertr1cks schneller zu erkennen 
sind, benutze Ich diese wieder als Ausgangsbasis fUr 
eine weitere Version. Sie bietet auch dem Auge etwas 
mehr. 

Zunächst legen wir einmal fest, daß das nächste Pro¬ 
gramm im MODE 1 - also mit 40 Zeichen pro Zeile - ar¬ 
beiten soll. Die Anzahl der Informationen die in die¬ 
sem Programm bzw. den Daten stecken, sind nicht so um¬ 
fangreich, daß die Darstellung in diesem MODE nicht 
mehr möglich wäre. 


3.5 Eine komfortablere Variante einer einfachen Datei 

Betrachten Sie nun einmal das Listing des Programmes 
PRG3.BAS. 


3.5.1. Baslc-Llsting: PRG3.BAS 

100 'Telefondatei 
110 ' 

120 'MODE und BORDER festlegen 
130 MODE l:BORDER 23 
140 ' 

150 inv*=CHR*(24)' String fuer Zeicheninvertierung 

160 ’ 

170 'Fenster festlegen 

180 WINDOW #1,2,39,2,4' Fenster fuer Programm-Namen 

190 WINDOW #2,2,39,22,25' Fenster fuer Bedienungs-Ausgaben 

200 WINDOW #3,2,39,10,15' Fenster fuer Suchstring-Eingabe und Ausgabe 

210 ' 

220 READ anzahl' Anzahl der Eintraege aus erster Datazeile lesen 

230 ' 

240 PRINT #1," Telefon-Datei mifanzahl "Eintraegen 
250 ' 

260 'Trennstriche ausgeben 

270 LOCATE 1,3: PRI NT STR 1 NG* (40, ): LOCATE 1.2ÜPRINT STR!NG*(40, "-") 

280 ’ 

290 CLS #3' Fenster 3 loeschen 

300 INPUT #3,"Gesucht werden soll:";such* 

310 such*=UPPERS(such*) 

320 IF LEN(such*)=0 THEN BORDER 0s END 

330 PRINT #2,inv*"F";inv$:SPRINT #2,”amilien- oder "inv*"V"!inv*;"ornaroe 
340 PRINT #2SPRINT #2,"(Bitte F oder V oder ENTER druecken!) 

350 ' 

360 x*=L0WER*(INKEY*)sIF x* = "" THEN 360’ Auf Taste warten 
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370 IF x$ <> "f" AND x* <> "v" AND x*<> CHR*<13) THEN 360 
380 ' 

390 CLS *2' Fenster 2 loeschen 

400 READ famiIienname*' Familiennamen lesen 

410 IF fami1ienname*="ENDE" THEN 540' Eintragsende erreicht 

420 READ vorname»,te1efon* 

430 IF x* = "v" THEN verg 1 eich* = UPPER*(Vorname*):G0T0 450 
440 verg 1 elch* = UPPER*(famiIienname») 

450 IF verg 1 eichiOsuch* THEN 510' Keine Uebereinst i mmung 

460 ' 

470 CLS #3:PRI NT »3,"Fami1ien-Name : "fami1ienname* 

480 PRINT *3,"Vorname : "vorname* 

490 PRINT *3,"Telefon-Nummer: "telefon* 

500 CLS #2 :PRINT #2,"Bitte eine Taste druecken":CALL 8.BB06 
510 GOTO 400 
520 ’ 

530 ’.-.-.-.-. 

540 RESTORE 10000:CLS 12 

550 PRINT *2,"Eintrag "inv* such* inv* " nicht gefunden" 

560 PRINT »2,"Bitte eine Taste druecken ! 

570 CALL &BB06:CLS #2:GOTO 290 

580 ’. 

590 Anzahl der Eintraege 
600 DATA 20 
610 ’ 

10000 DATA Axtner.Wi1 he Im,0433/9824376 
10010 ' 

10020 DATA Brack,Sieglinde,0211/8890943 
10030 ' 

10040 DATA Dutschke, Franz,0211/49823 
10050 ' 

10060 DATA Faber,Richard,03221/8973 
10070 ' 

10080 DATA Gernhuber,Emma,0617/663421 
10090 ' 

10100 DATA Heusenbach,Susanne,04563/59837 
10110 DATA Huber,Michael,089/7765776 
10120 ' 

10130 DATA Mahrbach,Ui II1,07131/33435 
10140 DATA Mayer, Reinhard,632/6546 
10150 DATA Meier,Alfons,0882/66532 

usw. bis.... 

10320 DATA ENDE 
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In Zeile 130 wird der MODE 1 und zum Zwecke einer et¬ 
was schöneren Darstellung eine hellere Border-Farbe 
gewäh1t. 

ln Zeile 150 wird die Stringvariab 1e invt (= Invertie¬ 
rungsstring) definiert. Dies ist kürzer als chrt(24), 
aber trotzdem ist verständlich was durch diesen ge¬ 
schieht: Die Zeichen werden invertiert. 

Da die CPCs die hervorragende Eigenschaft haben, Fen¬ 
sterdefinitionen zuzulassen, machen wir in dieser Pro¬ 
grammversion hiervon auch Gebrauch (Zeilen 170 bis 
200). Dann erfolgen Bildschirmausgaben ganz gezielt 
und auch Teilbereiche des Bildschirmes können einfach 
gelöscht werden. 

Um nicht Jedesmal wenn die Anzahl der Einträge festge¬ 
stellt werden soll, die Datazeilen abzählen zu müssen, 
wurde eine weitere Datazeile hinzugefugt. Sie enthält 
die Anzahl der enthaltenen Einträge und muß laufend 
aktualisiert werden. Durch Zeile 220 wird die Anzahl 
gelesen und in Zeile 240 ausgegeben. 

Durch Zeile 270 werden zwei Trennstriche ausgegeben, 
um die Übersichtlichkeit zu erhöhen. 

Durch Zeile 290 wird das Ein-/Ausgabe-Fenster gelöscht 
und in Zeile 300 wird die Eingabe gefordert. Der zu 
suchende Name wird der Variablen sucht übergeben. 

Falls nur die ENTER-Taste betätigt wird, ist die Länge 
von sucht null und der Programmlauf wird nach Änderung 
der Border-Farbe beendet (Zeile 320). 

Erfolgte aber eine Eingabe, die mit ENTER abgeschlos¬ 
sen wurde, dann wird durch die Zeilen 330/340 die Auf¬ 
forderung, die Taste "F" für den Farni1ien-Namen oder 
die Taste "V" für den Vornamen zu drücken, ausgegeben. 
Anstelle der Taste "F" kann auch die ENTER-Taste be¬ 
nutzt werden. 

Durch Zeile 360 wird auf die entsprechende Eingabe ge¬ 
wartet. Zeile 370 "filtert” Fehleingaben aus. 

Zeile 390 löscht das Fenster für die Ausgabe der Be¬ 
dienungsmeldungen und in der folgenden Zeile wird der 
erste Teil der Datas jeder "Eintragszelle" gelesen: 

Der Familienname. Falls dies das Wort "ENDE" ist 
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(Zelle 410), wird Uber den Sprung nach 540 der DATA- 
Zeiger wieder auf den Anfang der Einträge gestellt, 
die Meldung, daß der Eintrag nicht gefunden wurde aus¬ 
gegeben etc. und das Programm verzweigt zu Zeile 290. 
Dort fährt es fort. 

Enthält die Variable fami1ienname* nicht "ENDE", dann 
wird in Zeile 420 der Vorname und die Telefonnummer 
ge 1esen. 

ln Zeile 430 wird - je nach vorheriger Wahl - der 
Stringvariab 1en vergleicht entweder der Inhalt von 
fami1iennamet oder vornamet zugewiesen. In der folgen¬ 
den Zeile erfolgt dann der Vergleich mit dem zu such¬ 
enden Kriterium. Ist dieser negativ, dann erfolgt der 
Sprung zu Zeile 510 und von dort aus dann zu 400 um 
die nächsten Statements einzulesen und der Vergleich 
wiederholt sich bis zum Ende oder bis die Suche er¬ 
folgreich ist. 

Ist der Suchvergleich positiv ausgefallen, dann er¬ 
folgt durch die Zeilen 470 bis 490 die Ausgabe. Die 
Zeile 500 bewirkt, daß das Programm erst nach einem 
Tastendruck weitermacht. 

Obwohl es den eigentlichen Zweck (Ausgabe des Famili¬ 
ennamens, des Vornamens und der Telefonnummer) mehr 
als erfüllt, zeigt sich auch bei Ihnen wahrscheinlich 
sehr bald, daß es doch zu weiteren Wünschen Anlaß 
gibt. 

Eine Programmeigenart ist es ja, daß alle Namen kom¬ 
plett (in der gesamten Länge) und auch korrekt einge¬ 
geben werden müssen. Falls die genaue Schreibweise des 
Namens nicht bekannt ist, kann dieser nicht gefunden 
werden. 

Bei dieser sehr geringen Eintragsanzahl kein Problem, 
mit LIST kann Einsicht in das Programm genommen wer¬ 
den. Nur mit Komfort hat das dann wenig zu tun. Wenn 
die Anzahl der Einträge hoch ist, dann kann die Suche 
auch sehr zeitraubend sein. 

Bevor wir uns nun anderen Dateiverwa1tungsprogrammen 
zuwenden, wollen wir das bestehende Programm noch um 
ein paar Funktionen erweitern. Beispielsweise um auch 
die Suche bei unvollständiger Eingabe zu ermöglichen. 
Außerdem soll auch noch die Eintrags-Nummer bei gefun- 
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denen Übereinstimmungen ausgegeben werden. Der Pro¬ 
grammaufwand hierfür Ist gering. Sie brauchen nur die 
nachstehenden Basic-Zellen in das Programm einzufugen. 


Llsting: ERGZ.BAS 

415 nummer=nummer+1:IF nummer > anzahl THEN nummer = 0 

445 1F such*="?" THEN 470 

450 IF INSTR(vergleich*,such*) THEN 470 

455 GOTO 390 

495 PRINT #3:PRINT #3:PRINT #3,"Eintragsnummer: "nummer 
510 GOTO 400 



Abbildung 1! Durch die Ergänzungen kann - unabhängig von der 
Groß-/Kleinschreibweise - auch nach Teil-Namen 
gesucht werden. 


Wie Sie sich erinnern werden, stand zu Beginn dieses 
Kapitels eigentlich nur der Wunsch nach einer ein¬ 
fachen Telefon-Datei, aber sehr schnell hatte sich ge¬ 
zeigt, daß doch zusätzliche Funktionen programmiert 
werden mußten. 
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Telefon-Datei 

Mit 20 Eintraegen 

Fami1ien-Name: 
Uorname : 

Telefon-Nummer: 

Heusenbach 

Susanne 

045G3/S9837 

Eintragsnummer: 

6 

i 

1 

j Bitte eine Taste druecken 

i 


Abbildung 2: So sieht es aus, wenn ein Übereinstimmender Eintrag 
gefunden wurde. 


Damit sollte nur aufgezeigt werden, daß vor der ei¬ 
gentlichen Programm-Entwicklung wirklich genau Über¬ 
legt werden soll und muß . welche Funktionen ein Pro¬ 
gramm erfüllen soll und auch wie! 

Zum Abschluß dieser doch noch sehr einfachen Programme 
zur Dateien-Verwa1tung nun ein weiteres kleines Pro¬ 
gramm, das aber etwas aus dem Rahmen des Üblichen 
"Datei-Denkens" fällt. Es ist ein kleines Wörterbuch- 
Programm. Allerdings werden bei diesem nun schon ganz 
spezielle Eigenheiten der CPCs ausgenutzt und diese 
auch ftlr den Jeweiligen CPC-Typ automatisch angepaßt. 
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3.6 Wörterbuch ln Dateiform 


3.6.1 B as 1 c-Ll s11ng ■ Wörterbuch (WOERT.BAS) 

100 REM Einfaches Woerterbuch Deutsch/Eng 1Isch (c) by LM 
110 ' 

120 'CPC-Typ feststellen um Adresse fuer aktive Fehler-Routine zuzuweisen 
130 IF PEEK(&AC01) =&C9 THEN fcodeadr = fcADBl ELSE f codeadr=8«AD98 
140 IF fcodeadr=&ADBl THEN datazei ladr = t<AE2E ELSE datazei ladr = &AE15 
150 ' 

160 MODE 1:0N ERROR GOTO 550 
170 invt=CHRt<24) 

180 WINDOW #1,11,39,7,7:WINDOW #2,11,39,11,11 
190 WINDOW #3,25,29,3,3:WINDOW #7,1,39,23,25 
200 ' 

210 PRINT invt"Einfaches Woerterbuch (c) by LM"invt:PR I NT 

211 LOCATE l,3:PRINT"Eintrags-Nummer:" 

220 LOCATE 1,7:PRINT invt"Deutsch :":LOCATE 1,11:PRINT"Eng1isch:"inv$ 

240 CLS #1:CLS #2:CLS #7 

250 RESTORE:zaehler=0:PRINT #3,zaehler 

260 LOCATE 1,18 

270 PRINT "Suchbegriff in "invt"D"CHRt(24)"eutsch oder "! 

280 PRINT invt"E"invt"nglisch ":PRINT invt"P"invt" = Programmende 
290 x*="":WHILE xt="":x#= LOWER#(INKEY#):WEND 
300 LOCATE 1,18 

310 IF x« = "d" THEN PRINT"Suchbegriff in Deutsch"f1ag = l:GOTO 360 

320 IF x* = "e" THEN PRINT"Suchbegriff in Eng 1isch"i:fIag = 2:G0T0 360 

330 IF x* = "p" THEN CLS:END 

340 GOTO 290 
350 ' 

360 PRINT CHR*(18):PRINT CHR#(18):INPUT #7,"Begr1ff"Ibegriff# 

370 sucht=UPPERt(begrifft) 

380 LOCATE 25,18:PRINT ":"such#:CLS #7 
390 ' 

400 READ deutsch#,englisch# 

410 zaehler=zaehler+l:PRINT #3,zaehler 

420 IF flag = 1 THEN verg1eichs#=UPPERt(deutsch») 

430 IF flag = 2 THEN verg1eichs# = UPPER#(eng Iisch#) 

440 verg1 eichst=UPPER*(vergleichst) 

450 position=INSTR(vergleichs#,sucht) 

460 1F position Ol THEN 390:' Evtl, ersetzen durch: IF position=0 THEN 350 
470 PRINT #1,deutscht:PRINT #2,englisch# 

480 PRINT #7,"Neustart^ "invt"N"inv# 

490 PRINT #7,"Weltermachen= irgendeine andere Taste 

500 xt=L0WERt(INKEYt):IF x#="" THEN 500 

510 IF xt="n" THEN 240 

520 CLS #7:GOTO 390 

530 ' 
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540 'ON ERROR-ROUTINE deaktivieren 
550 POKE fcodeadr,0 

560 PRINT 17,"Ende der Eintraege erreicht!" 

570 CLS #1:CLS #2:REST0RE 

580 PRINT »7,"Neuen Eintrag aufnehmen? (J=ja)" 

590 x*=L0WER$(INKEY$) : IF x* = "" THEN 590 
600 IF x$ <> "J" THEN 240 
610 ' 

620 MODE 2 

630 PRINT inv$"Neuaufnähme in's Woerterbuch:"invt 

640 PR!NT:PRINT"Hierzu mit der COPY-Taste die ausgegebene Zeilen-Nummer, 
650 PRINT"sowie das Wort DATA":PRINT"uebernehmen."SPRINT 
660 PRINT"Dann das deutsche Wort eingeben, "; 

670 PRINT"anschliessend ein Komma, dann das englische " 

680 PRINT"Wort. und abschliessend die ENTER-Taste betaet 1 gen. " :PR INT 
690 PR I NT"Programm nach Eingabe der neuen Datazeilen mit RUN starten! 

700 ' 

710 spad1datz=PEEK(datazeiIadr)+PEEK(datazeiladr+1)«256 
720 adressel$=HEX$(spadldatz,4) 

730 LOCATE 1,15 

740 PR INT"1nformationen* 

750 PRINT"Speicheradresse der letzten Datazeile :"adressel$ 

760 adresse$="i"+adressel*:adresse=VAL(adresse$) 

770 highbyte=PEEK(adresse):1owbyte = PEEK(adresse + l) 

780 zei Iennr = hlghbyte + 256»1owbyte 
790 zei1ennr=zeiIennr+10 

800 PRINT"Naechste Data-ZeiIennummer :"zeilennr 
810 LOCATE 1,20:PRINT zeilennr "DATA " 

820 LOCATE 1,19 
830 END 
840 ' 

850 'Deutsch - English 
860 DATA Kueche,kitchen 
870 DATA Maedchen,girI 
880 DATA Hi 1fe,he 1p 
890 DATA Klingel,bei I 
900 DATA laden,load 
910 DATA speichern,save 


Nun folgt eine nur kurze Programmbeschreibung, denn 
aufgrund der vorherigen Beschreibungen dürften kaum 
Verständnisprobleme auf treten. 

Das Programm enthält ein paar kleine Tricks, die auch 
sehr gut bei anderen Programmen verwendet werden kön¬ 
nen. So beispielsweise die CPC-Typ-Festste11ung und 
die daraufhin zu erfolgende Reaktion. Außerdem ist 
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auch die Übernahme von neuen Daten nicht gerade auf 
normale Weise programmiert. 

Versuchen Sie einmal herauszufinden, woher der CPC 
weiß, welche Datazei1en-Nummer er bei einem neuen Ein¬ 
trag ausgeben muß. Die Zeilen von 710 bis 800 sind 
hierfür zuständig. Die Adressen aus denen ein CPC dies 
"abholen" kann sind zwischen dem CPC 464 und seinen 
Nachfolgern unterschiedlich. Deshalb die Zeilen 120 
bis 140. 

Die Feh 1ercode-Adresse (fcodeadr) ist die Adresse, die 
anzeigt, daß ein Fehler aufgetreten ist. Die Datazei- 
len-Adresse (datazei1adr ) ist ebenfalls unterschied¬ 
lich bei den CPCs. 

Weshalb die Zeile 550 enthalten ist, können Sie leicht 
feststellen, indem Sie nach dieser Zei1en-Nummer REM 
schreiben und dann mit dem Programm ein paar Durchgän¬ 
ge mit nicht enthaltenen Datas machen! 



Abbildung 3: So sieht die Ausgabe beim Wörterbuch-Programm aus. 
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Ein gut gemeinter Ratschlag noch zu diesem Programm: 

Vergessen Sie nicht, nach Neueingaben das Programm 
wieder abzuspeichern, denn sonst waren die Neuein¬ 
träge umsonst! 


Damit wollen wir diese Art der einfachen Dateiverwal¬ 
ter abschließen und uns anderen Techniken der Datei¬ 
verwaltung zuwenden. Da die folgenden Programme auch 
wesentlich leistungsfähiger sind, wird es auch schwie¬ 
riger, sie zu verstehen. 

Trotzdem habe Ich versucht, auch diese Programme so zu 
strukturieren und so zu kommentieren, daß Sie auch 
diese durchschauen. 
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4 Vorüberlegungen zu komfortablen 
Programmen 


Während bei den vorangegangenen Programmen die Daten 
im Programm selbst standen, wollen wir nun eine andere 
Technik benutzen. Die Daten sollen als separate Files 
geladen und auch wieder abgespeichert werden können. 
Dies hat den Vorteil, daß ein und dasselbe Datei-Pro¬ 
gramm, Daten verschiedener Art (aber von gleicher 
Struktur) be- und verarbeiten kann. 

Als Datenspeicher könnte in einfachen Fällen zwar ein 
Kassettenrekorder dienen, aber es sollte eigentlich 
immer mindestens eine Diskettenstation eingesetzt wer¬ 
den. Wenn es - wegen enorm hohen Datenanfalles - sein 
sollte, mittels einer Harddisc die Dateiverwa1tung 
durchfuhren zu müssen, dann kann dieses Buch zwar jede 
Menge an Informationen geben, aber ein Programm fllr 
den Harddisc-Betrieb ist nicht enthalten. 


Da in Computer-Zeisehriften viele Dateiverwa1tungs- 
Programme abgedruckt wurden und werden, die mit 
Stringvariab 1en arbeiten, will ich in diesem Buch so¬ 
weit wie möglich darauf verzichten und nun einen Weg 
aufzeigen, der viele Vorteile hat: 

Wir richten eine sogenannte RAM-Dlsk ein. 


Gleich vorweg soll aber auch nicht verschwiegen wer¬ 
den, daß eine derartige Programmtechnik auch Nachteile 
hat. Diese sind meiner Meinung nach aber nicht so 
schwerwiegend, daß sie die Vorteile Ubertreffen. 
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4.1 Was Ist eine RAM-Dlsk? 

Ganz simpel ausgedrUckt ist dies ein RAM-Speicherbe- 
reich, der von Basic-Programmen nicht benutzt werden 
kann oder darf. 

Es kann auch beim CPC 464 oder 664 RAM-Disk-Betrieb 
gemacht werden, wenn der Speicher für Basic begrenzt 
wird und ein großer Teil von RAM-Stellen als "schnel¬ 
ler" Speicher zum Einsatz kommt. Beim CPC 6128 mit 
seinen zusätzlichen 64 KByte ist es sowieso klar, daß 
RAM-Disk-Betrieb möglich ist. 

Für komfortable Dateiverwa1tungs-Programme gehe ich 
davon aus, daß alle wichtigen Informationen von Daten¬ 
files geliefert werden und sowenig Eingaben wie mög¬ 
lich vom Programmbediener gefordert werden. Das bedeu¬ 
tet aber auch, daß von einem Datenfile die Anzahl der 
Einträge, die Anzahl der Felder pro Eintrag, aber auch 
die Namen der Felder und deren Bildschirm-Positionen 
geliefert werden. 

Ein Datenfile, das solche Informationen liefern soll, 
wird auch mit einem Programm erstellt. Ein derartiges 
Programm kann als Unterroutine in einem Dateiverwal¬ 
tungsprogramm stehen, sinnvoller ist aber sicherlich 
ein getrenntes Programm hierfür, da bei dem ohnehin 
meist sehr knappen Bereich für Daten das Programm für 
die eigentliche Dateiverwa1tung sehr kurz sein sollte. 

Ein Programm, mit dem das eben genannte File erstellt 
wird und mit dem auch die Werte für die Maske, also 
für die spätere Bildschirmdarstellung der Einträge, 
geschrieben werden, nennt man Maskengenerator. 


4.2 Zwec k von Maskengeneratoren 

Sinn eines Maskengenerators ist es, den Bildschirmauf¬ 
bau für ein beliebiges Datei Programm zu generieren und 
so aufzubereiten, daß die Werte vom eigentlichen Da¬ 
teiverwalter oder auch von Zusatz- und Hilfsprogrammen 
übernommen werden können. Dadurch müssen diese Werte 
nicht immer wieder in den verschiedenen Programmen 
festgelegt werden. 

Diesen Zweck erfüllt beispielsweise das in diesem Buch 
enthaltene Programm MASKGEN.BAS für die später noch 
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folgenden Dateiverwa1tungen. Das Programm finden Sie 
im Kapitel der Programmbeschreibungen. (Dies trifft 
ftir alle größeren Programme zu, denn ich wollte den 
"fließenden" Text nicht zu sehr mit den Listings "stö¬ 
ren". ) 

Der Maskengenerator ist so geschrieben, daß er fUr die 
vier komfortablen "Dateiverwalter" dieses Buches ein¬ 
gesetzt werden kann. 

Da auch meine Überlegungen anfangs nicht weit genug 
gingen, hatte jedes Programm einen eigenen Maskengene¬ 
rator. Nachdem ich aber später erkannt hatte, daß alle 
Programme mit den gleichen Daten auskommen können, 
wurde aus den Ursprünglich vier Programmen eines er¬ 
stellt, das alle vier Dateiverarbeitungsprogramme "be- 
1iefern" kann. 

Ursprünglich war von mir auch geplant, eigentlich nur 
ein einziges Grundprogramm fUr die Dateiverwa1tung zu 
schreiben und die Versionen lediglich durch hinzuladen 
von Programmtellen zur gewünschten Version zu machen. 
Von diesem Grundgedanken bin ich dann aber wieder ab¬ 
gegangen, weil die Unterschiede doch so umfangreich 
sind und auch weil ich aus der Erfahrung heraus weiß, 
daß es vielen CPC-Besitzern Schwierigkeiten bereitet, 
wenn sie nicht die kompletten Programme abschreiben 
können. Vor allem Einsteiger haben oft gewaltige 
Schwierigkeiten beim Ergänzen durch "MERGE". 

Deshalb können Sie feststellen, daß alle Programme 
zwar immer die gleiche Grundstruktur haben, aber in 
den Details und auch in den Zei1en-Nummern variieren. 
Fortgeschrittene CPC-Besitzer sind bestimmt in der 
Lage - wenn Sie die verschiedenen Programme haben 
wollen - aus einem der Programme auch die anderen Ver¬ 
sionen aufzubauen. Die anderen bekommen die fertigen 
Listings "serviert". 

Es wiederholen sich also bestimmte Grundprogrammteile 
mehrfach, aber ich kann ja niemanden von Ihnen Uber 
die Schulter sehen und ggf. helfen wenn Probleme auf- 
treten. Das ist auch mit ein Grund, weshalb die Pro¬ 
gramme komplett abgedruckt sind. 

Aber, ich wiederhole es, die verschiedenen Dateiver¬ 
waltungsprogramme benötigen nur einen einzigen Masken¬ 
generator . 
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Hintergedanke beim Maskengenerator war aber nicht nur 
der Wunsch nach dem Maskenaufbau, sondern auch die Lö¬ 
sung eines Problemes das häufig auftritt: Der Bildauf¬ 
bau wird durch zu lange Eingaben "gestört". Eine Met¬ 
hode um dies zu verhindern ist der Einsatz von pro¬ 
grammierbaren Fenstern im Programm. Dadurch wird das 
"Bild" dann zwar nicht mehr zerstört, aber bei zu lan¬ 
gen Eingaben "rutschen" diese wieder aus den Fenstern 
heraus und sind dann verschwunden. 

Viele Programmierer zeigen deshalb die Grenzen der 
Fenster durch irgendwelche Kennzeichen an, oder stel¬ 
len die Fenster invertiert dar. Wird aber "blind" ein¬ 
gegeben, dann kann es doch wieder zu Überschreitungen 
der Fenstergrenzen kommen. Aus diesem Grunde habe ich 
mir etwas völlig anderes Überlegt. 


4.3 Der Window-Editor 

Durch eine kleine Maschinenroutine kann die Eingabe 
innerhalb eines Fensters (Window) ganz ausgezeichnet 
unterstützt werden. Dieses Programm habe ich WINDOW¬ 
EDITOR getauft. Die Kurzbezeichnung (wegen der Abspei¬ 
cherung auf der Diskette) lautet: WED. 

Sinn und Zweck dieser Routine ist es, Eingaben nur 
innerhalb des Fensters zuzulassen, ohne daß bereits 
eingegebene Zeichen verschwinden. Das Verlassen des 
Eingabefensters soll nur mittels ganz bestimmter Ta¬ 
sten möglich sein. Eigentlich nur mittels der Taste 
ENTER, da ja nur diese normalerweise eine Eingabe ab¬ 
schließt. Aus Komfortgründen wird bei den Programmen 
aber dann noch die COPY-Taste zugelassen. 

Diese Routine kann fUr viele Programme eingesetzt wer¬ 
den und ist auch Bestandteil der Dateiverwa1tungsPro¬ 
gramme. 

FUr diejenigen, die genau wissen wollen wie dieses 
Programm arbeitet, folgt nun der Quellcode. Alle 
Que1 1 Programme dieses Buches tragen die Erweiterungs- 
Kennzeichnung (Extension) ".EDI". Der Grund Ist: Sie 
wurden mit einem Text- EDl tor erstellt. Dadurch sind 
sie leicht von anderen Programm-Kennzeichnungen wie 
".BAS" fUr Basicprogramm, "*.BAK" fUr Backup usw. im 

Inhaltsverzeichnis (Directory) der Diskette zu er¬ 
kennen. 
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Dieses Assemb1 er-Listing ist - wie alle dieses Buches 
- ausreichend mit Kommentaren versehen, wodurch Inter¬ 
essierte das Programm leichter verstehen können. 


4.3.1 Assemb 1er-Llst ing! WED.EDI 


jo»»»«»*«**»*#***»**»«***»»»»»»»»**»*»»»* 


!* WED.EDI » 

;* Window-Editor * 

i»_* 

;* * 

!« Copyright by Lothar Miede! » 

;«-» 

[* ermoeglicht die Eingabe von Zeichen * 

!* und Steuerung mittels Cursortasten « 

;» innerhalb eines Fensters » 


;*»*****»*)(**»****«* k****»»#*»«*****«*»*** 
;Firmwarerout inen 


waitch 

equ 

&bb06 

lauf Zeichen warten 

tout 

equ 

&bb5a 

[Text output 

setcurs 

equ 

&bb75 

iCursor setzen 

euren 

equ 

kbb7b 

iCursordarste1Iung ein 

curdis 

equ 

&bb7e 

JCursordarstellung aus 

valid 

equ 

&bb87 

iCursor im Window ? 

p1acur 

r qu 

&bb8a 

[Stelle Cursor auf Schirm dar 

remeurs 

equ 

&bb8d 

iLoesche Cursor auf dem Schirm 

strsel 

equ 

&bbb4 

[Selektiere Stream 

getcur 

equ 

&bb78 

[aktuelle Cursorposition ? 




org 

; S>a000 




A000 

3A 

75 

A 0 

Id 

a,(stream) 

[stream holen 

A003 

CD 

B4 

BB 

ca 1 1 

strsel 

[und auswaehlen 

A006 

CD 

78 

t 

L3 wloop 

ca 1 1 

getcur 

[Cursorposition holen 

A009 

CD 

75 

BB 

ca 11 

setcurs 

[Cursor setzen 

A00C 

CD 

8A 

BB 

ca 1 1 

placur 

[Cursor auf erste Position 

A00F 

CD 

06 

BB 

ca I 1 

waitch 

[Auf Zeichen warten 

A012 

4F 



Id 

c, a 

[Zeichen retten 

A013 

CD 

CD 

O 

BB 

ca 1 1 

remeurs 

[Cursorsymbol entfernen 

A016 

79 



Id 

a, c 

[Zeichen wieder holen 

A017 

FE 

0D 


cp 

a, J 3 

[ist es return ? 

A019 

C8 



ret 

z 

[ja -> Basic 

A01A 

FE 

F2 


cp 

a, 242 

[ist es Cursor links ? 
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A.01C 

CA 

41 

A0 


jP 

z,1inks 

;ja -> Routine links 

A01F 

FE 

F3 



cp 

a, 243 

; ist es Cursor rechts ? 

A021 

CA 

57 

A0 


JP 

z,rechts 

; ja -> Routine rechts 

A024 

FE 

7F 



cp 

a, St7f 

[Zeichen groesser &7f 

A026 

F2 

06 

A0 


JP 

p,w1oop 

ija weitermachen 

A029 

FE 

20 



cp 

a, 32 

[Zeichen kleiner 32 

A02B 

FA 

06 

A0 


JP 

m,w1oop 

;ja weitermachen 

A02E 

CD 

5A 

BB 

outp 

ca 1 1 

tout 

;und ausgeben 

A031 

CD 

78 

BB 


ca 1 1 

getcur 

ipruefen ob im Fenster 

A034 

3A 

77 

A0 


Id 

a,(mrechts) 

[rechten Maximalwert 

A037 

3C 




1 nc 

a 

;erhoehen 

A038 

57 




Id 

d, a 

;und merken 

A039 

7C 




Id 

a, h 

[aktuelle Position holen 

A03A 

BA 




cp 

a, d 

;und vergleichen 

A03B 

CA 

6D 

A0 


JP 

z, wrr 

[rechte Windowposition erreicht 

A03E 

C3 

06 

A0 


JP 

w 1 oop 

[weitermachen 

A041 

3E 

08 


1 inks 

ld 

a, 8 

[Cursor 1inks laden 

A043 

4F 




Id 

c, a 

iund merken 

A044 

CD 

78 

BB 


ca 1 1 

getcur 

[CursorpositIon holen 

A047 

3A 

76 

A0 


ld 

a,(mlinks) 

i1inken Grenzwert 

A04A 

57 




Id 

d, a 

[merken 

A04E 

7C 




Id 

a, h 

»mlt aktue11em 

A04C 

BA 




cp 

a, d 

;Wert vergleichen 

A04D 

CA 

06 

A0 


jP 

z,wloop 

[Rand erreicht 

A050 

79 




Id 

a, c 

»Backspace holen 

A051 

CD 

5A 

BB 


cal 1 

tout 

iund ausfuehren 

A054 

C3 

06 

A0 


jP 

w 1 oop 

iweitermachen 

A057 

3E 

09 


rechts 

Id 

a, 9 

iCursor rechts laden 

A059 

4F 




Id 

c, a 

iund merken 

A05A 

CD 

78 

BB 


ca 1 1 

getcur 

iaktuellen Wert holen 

A05D 

3A 

77 

A0 


Id 

a,(mrechts) 

irechten Grenzwert 

A060 

57 




Id 

d, a 

[merken mit 

A061 

7C 




Id 

a, h 

iaktue11en Wert 

A062 

BA 




cp 

a, d 

ivergleichen 

A063 

CA 

06 

A0 


JP 

z,w1oop 

'.Rand erreicht 

A066 

79 




Id 

a, c 

[Cursor rechts 

A067 

CD 

5A 

BB 


ca 1 1 

tout 

iausfuehren 

A06A 

C3 

06 

A0 


JP 

w 1 oop 

iund weitermachen 

A06D 

3E 

08 


wr r 

ld 

a, 08 

iBackspace 

A06F 

CD 

5A 

BB 


ca 1 1 

tout 

iausgeben 

A072 

C3 

06 

A0 


JP 

w 1 oop 

iund weiter 
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A075 07 


stream 

def b 

8,07 





A076 05 


mlinks 

def b 

8,05 





A077 06 


mrechts 

def b 

8,06 





Fehler: 00000 

Warnungen: 00000 






Symbo1tabeIle: 









BB7B CUREN 

BB7E 

CURD1S 

BB78 

GETCUR 

A041 

LINKS 

A076 

MLINKS 

A077 MRECHTS 

A02E 

OUTP 

BB8A 

PLACUR 

BB8D 

REMCURS 

A057 

RECHTS 

BB75 SETCURS 

BBB4 

STRSEL 

A075 

STREAM 

BB5A 

TOUT 

BB87 

VALID 

BB06 WAITCH 

A006 

WLOOP 

A06D 

WRR 






Diese Routine kann durchaus noch ergänzt werden, was 
fUr die späteren Programme auch noch geschieht. Aber 
dadurch, daß es an dieser Stelle für einen anderen 
Adressbere1ch assembliert wurde, können Sie diese Ver¬ 
sion auch fUr andere Programme besser einsetzen. 

Die Erstellung des Programmes "WED" hat aber noch 
einen weiteren Grund. Denn meine Überlegungen gingen 
noch weiter, als ich es bisher geschrieben habe. Die¬ 
ser Maschinensprachetei1 ist nämlich bereits die Basis 
für das später noch beschriebene Umkopieren vom Bild¬ 
schirm in die RAM-Disk und umgekehrt. Damit Sie aber 
den Sinn dieser Routine nicht nur verstehen, sondern 
auch in der Praxis erleben können, folgt nun ein 
kleines Demonstrationsprogramm. 


4.3.2 Baslc-Llstlng: WED.BAS 

100 'WED.BAS 
1.10 ’ 

120 MEMORY 8<9FFF:M0DE 2:PRINT"Demo des Window-Editors 
130 ' 

140 IF PEEK(8,A000) 058 THEN GOSUB 240 
150 stream=7:oben=10:unten=10:links=30:rechts=75 
160 mstream=8,A075:mrechts=8<A077:ml inks = 8,A076 
170 ' 

180 WINDOW #7,1Inks+1,rechts+1,oben,unten 
190 PRINT 17,CHR$(24):CLS #7:PRINT »7,CHR*(24):CLS *7 
200 POKE mstream,stream:POKE m1inks,1:POKE mrechts,rechts-1inks 
210 CALL &A000:oben=oben+1:unten =unten +1MF oben >=20 THEN END ELSE 180 
220 ' 

230 'Der nachfolgende Teil ist der Hexlader 
240 a=8<A000:e=&A074:zb = 1000:e = e + l 
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250 FOR i -a TO e:READ d*: 1F LEFTi(d$,1) ="i" THEN flag =1 

260 IF (flag AND psOVAL(dt)) THEN PR I NT"Feh I er in Zeile "zb + l:END 

270 IF (flag AND i=e> THEN RETURN 

280 IF flag THEN 1 = i -1: zb = zb + l: ps = 0: d$ = "" : f 1 ag = 0-.GOTO 300 
290 d$ = "&" + dt:POKE i,VAL(dt):ps = ps + VAL(dt) : 

300 IF i < e THEN NEXT i 
310 ' 

1001 DATA 3A,75,A0,CD,B4,BB,CD,78,BB,CD,75,BB,CD,8A,BB,CD,&0A67 

1002 DATA 06, BB, 4F, CD, 8D,BB,79,FE,0D,C8,FE,F2,CA,41,A0, FE,&0A0A 

1003 DATA F3.CA.57,A0,FE,7F,F2,06,A0,FE,20,FA,06,A0,CD,5A,&09AE 

1004 DATA BB, CD, 78, BB, 3A, 77, A0, 3C, 57, 7C, BA, CA, 6D, A0, C3, 06, &0875 

1005 DATA A0,3E,08,4F,CD,78,BB,3A,76,A0,57,7C,BA,CA,06,A0,40782 

1006 DATA 79, CD, 5A, BB, C3, 06, A0,3E,09,4F,CD,78,BB,3A,77,A0,407AB 

1007 DATA 57,7C,BA,CA,06,A0,79,CD,5A,BB,C3,06,A0,3E,08,CD,&07D4 

1008 DATA 5A,BB,C3,06,A0,A027E 


Da das Programm nicht sehr umfangreich ist, sollten 
Sie sich wirklich die Muhe machen, es abzuschreiben 
und laufen zu lassen, um damit etwas zu experimentie¬ 
ren. Dadurch stellen Sie dann fest, daß Sie außer mit 
der Enter-Taste (oder RETURN) keine Möglichkeit haben, 
das Fenster zu verlassen. Das bedeutet auch, daß ein 
Verschwinden von Zeichen wenn Sie am rechten oder lin¬ 
ken Window-Ende angekommen sind und weiterschreiben, 
nicht erfolgt. 

"Bewegungen" im Fenster sind nur durch die beiden Cur¬ 
sor-Steuertasten "links" und "rechts" möglich. Die 
De 1 ete-Funktion wurde ebenfalls verhindert. Löschungen 
erfolgen durch Überschreiben mit anderen Zeichen, wie 
z.B. dem Leerzeichen. 

Wie Sie ebenfalls bemerken werden, kann die Größe und 
die Position eines beliebigen Fenstes während eines 
Programm 1 auf es jederzeit geändert werden. Im Beispiel 
wird hierzu Window #7 benutzt. 

Allerdings habe ich in diesem Programm nur "einzei¬ 
lige" Fenster berücksichtigt, denn fUr die Dateiver- 
wa1tungs-Programme dieses Buches reicht dies aus. 
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4,4 Schnell umkopiert 

Nun wäre es noch sehr gut, wenn die Window-Eingaben 
direkt in den RAM-Speicher gelesen werden könnten. Der 
große Vorteil wäre: Es brauchten keinerlei Zeichenum¬ 
wandlungen zu erfolgen und vor allem entfiele dann 
jegliche Stringbehandlung fUr die Daten. 

Dazu sollte dann aber auch die "Gegenroutine" zum 
Schreiben aus dem normalen RAM-Speieher-Bereich auf 
den Bildschirm vorhanden sein. 

Auch das kann in Maschinensprache sehr leicht gelöst 
werden. 

Wie dies funktioniert, können Sie dem nachfolgenden 
Assemb1 er-Listing entnehmen, denn wie fUr alle Maschi¬ 
nencode-Routinen dieses Buches ist auch dieses aus¬ 
führlich kommentiert. FUr die spateren "echten" Pro¬ 
gramme sehen Sie bitte in den Abschnitten RAMWR und 
RAMRD nach. Diese sind nichts anderes als der Pro¬ 
grammteil COPY und erledigen dort das Lesen von Zei¬ 
chen, die sich auf dem Bildschirm befinden und auch 
das Schreiben in einen ganz genau festgelegten RAM- 
Bereich und umgekehrt. Daß dies auch noch sehr schnell 
geschieht, Ist ein ebenfalls nicht zu unterschätzender 
Vorteil gegenüber Basic. 

Das Programm wurde so assembliert, daß Sie es direkt 
hinter den Window-Editor "schreiben" können. Diesmal 
ist allerdings kein Lade-Programm abgedruckt. Das kön¬ 
nen Sie sich dadurch, daß beim Assemb1er-Listing alle 
Codes enthalten sind, selbst schreiben. 


4.4.1 Assembler-Llstlng; COPY.EDI 

;*«****«•*«*««•*•****•««****•«»*«**•»**•* 


;* COPY.EDI » 

; , - « 

;* Copyright by Lothar MIedel * 

; * * 

; * * 

;» kopiert ASC11-Zeichen vom Bildschirm » 
;* in jeden beliebigen Speicherbereich * 
!« um umgekehrt! * 

; * - « 

i» Frei waehlbar, bzw. von Basic aus zu * 
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;« poken sind -> * 
;» * 
!* Die Zeile, die Spalte, die Anzahl * 
;* der zu kopierenden Zeichen, der * 
;* Stream von dem gelesen werden soll * 
;* und die RAM-Disk (der Bereich in den * 
;» geschrieben werden soll)! * 


;*#»»»»*»**»*****»*»**»»«******»*»******* 
i 

iBenutzte Firmware-Routinen mit Funktion (F), Einsprungbedingungen (E) 

;und Aussprungbedingungen <A) 

txt_set_co!umn equ 8<bb6f ;F = Setze die horizontale Position des Cursors 
;E= a enthaelt die logische Spalte 
;A= af und hl zerstoert 

txt_set_row equ 8<bb72 ;F= Setze die vertikale Position des Cursors 

;E= a enthaelt die logische Zeile 
;A= af und hl zerstoert 


txt_str_se!ect equ ibbb4 ;F= Selektiere das Ein-/Ausgabegeraet (Stream) 
;E= a enthaelt Stream-Nummer 
;A= a enthaelt vorherigen Stream 
; hl und Flags zerstoert 

txt_rd_char equ &bb60 ;F= Lese Zeichen vom Bildschirm 

;E= keine 

;A= wenn Zeichen erkannt wurde 
; CARRY an a enthaelt Zeichen 

i wenn kein Zeichen erkannt wurde 

! CARRY aus a enthaelt Null 

! immer alle anderen Flags zerstoert 


txt_wr_char equ &bb5d ;F= Schreibe Zeichen auf den Schirm 

;E= a enthaelt das Zeichen 
;A= af,bc,de,hl zerstoert 


SLesen von Bildschirmzeichen und schreiben in RAM-Disk 


org &a078 


A078 

A07B 

3A 

CD 

Dl 

B4 

A0 

BB 

rarawr 

ld 

ca 11 

a,(stream) 
txt_str_se1ect 

;Streamauswah1 
lauf rufen 

A07E 

3A 

CE 

A0 


ld 

a,(zeile) 

;Zei1enposition 

A081 

F5 




push 

af 

;retten 

A082 

CD 

72 

BB 


ca 1 1 

txt_set_row 

;positionieren 
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A085 

Fl 



pop 

af 

iPosition wieder 

A086 

32 

CE 

A0 

ld 

(zei1e),a 

;rueckspeichern 

A089 

3A 

CF 

A0 

arbeite Id 

a, (spalte) 

iSpalte holen 

A08C 

F5 



push 

af 

lund merken 

A08D 

CD 

6F 

BB 

ca 1 1 

txt set column 

«Spalte positionieren 

A090 

Fl 



pop 

af 

Iwieder holen 

A091 

3C 



inc 

a 

;erhoehen 

A092 

32 

CF 

A0 

ld 

(spa1te),a 

Ineue Spalte merken 

A095 

2A 

D0 

A0 

ld 

hl,(anzahl ) 

[verbliebene Zeichenanzahl 

A098 

7D 



ld 

a, 1 

lAnzahl zum Vergleich in Akku 

A099 

FE 

00 


cp 

0 

iEnde ? 

A09B 

C8 



ret 

z 

ija -> Basic 

A09C 

2B 



dec 

hl 

IZeichenanzahl erniedrigen 

A09D 

22 

D0 

A0 

ld 

(anzahl),hl 

Ineue Anzahl merken 

A0A0 

CD 

60 

BB 

ca 11 

txt rd char 

iLesen - Zeichen in den Akku 

A0A3 

2A 

D2 

A0 

ld 

h1,< ramdisk) 

1 RAM-Disk-Adresse holen und 

A0A6 

77 



Id 

(hl ),a 

»Akkuinhalt in RAM-Disk 

A0A7 

23 



inc 

hl 

;RAM-Disk-Adresse erhoehen 

A0A8 

22 

D2 

A0 

Id 

(ramdisk),h1 

lund merken 

A0AB 

C3 

89 

A0 

JP 

arbeite 

Iweitermachen 

A0AE 

00 



nop 




iLesen von Zeichen aus der RAM-Disk und schreiben auf den Bildschirm 


A0AF 

A0B2 

3A 

CD 

Dl 

B4 

A0 

BB 

ramrd 

Id 

ca 1 1 

a,(stream) 
txt_str_se 1 ect 

iStream auswaehlen 

A0B5 

2A 

D2 

A0 

ras 1 es 

Id 

hl,(ramdisk) 

lAdresse der RAM-Disk holen 

A0B8 

7E 




ld 

a,(hl ) 

»Zeichen aus RAM-Disk lesen 

A0B9 

23 




inc 

hl 

;RAM-Diskadresse erhoehen 

A0BA 

22 

D2 

A 0 


ld 

(ramdisk),hl 

lund merken 

A0BD 

CD 

5D 

BB 


ca 1 1 

txt_wr_char 

iZeichen aus Akku schreiben 

A0C0 

2A 

D0 

A0 


Id 

hl,(anzahl) 

iZeichenanzahl holen 

A0C3 

7D 




ld 

a, 1 

lAnzahl in den Akku 

A0C4 

FE 

00 



cp 

a, 0 

ivergleichen auf Null 

A0C6 

C8 




ret 

z 

Izurueck ins Basic 

A0C7 

2B 




dec 

hl 

iZeichenanzahl erniedrigen 

A0C8 

22 

D0 

A0 


ld 

(anzahl),h1 

lund merken 

A0CB 

C3 

B5 

A0 


JP 

ram1 es 
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iSpeicherstellen um (von Basic aus) die gewuenschten 


;Werte 

uebergeben zu koennen. 



A0CE 

01 

zelle 

def b 

&01 

A0CF 

01 

spa1te 

def b 

«<01 

A0D0 

01 

anzah1 

def b 

S<01 

A0D1 

07 

stream 

def b 

«<07 

A0D2 

00 30 

ramdisk 

def w 

«<3000 

Fehler: 

: 00000 

Warnungen: 00000 



Symbo1tabeIle: 

A089 ARBEITE 
A0AF RAMRD 
A0CF SPALTE 
BB72 TXT_SET_ROW 
BB5D TXT WR CHAR 


A0D0 ANZAHL 

A0B5 RAMLES 

A0D1 STREAM 

BBB4 TXT_STR_SELECT 

A0CE ZEILE 


A078 RAMWR 
A0D2 RAMDISK 
BB6F TXT_SET_COLUMN 
BB60 TXT RD CHAR 


4.5 Hilfsprogramme für die Diskettendateien 

Bisher sind wir mit den Überlegungen immer davon aus¬ 
gegangen, daß die gesamten Daten irgendwo im CPC-Spei- 
cher stehen. Aber immer dann, wenn der Platz im 
"Schneider” zu gering ist, dann müssen andere Wege ge¬ 
funden werden, um auch derartig große Datenmengen zu 
bewä1tigen. 

Eine Möglichkeit ist es den RAM-Speicher zu erweitern. 
Zu diesem Zweck gibt es verschiedene Speicher-Erweite¬ 
rungen auf dem Markt. 

Wer etwas e1ektronik-bas11 er i sches Geschick hat, kann 
einen solchen Zusatz-Speicher leicht in einen CPC ein¬ 
bauen. Derjenige könnte aber Pech haben, daß das eine 
oder andere Programm dieses Buches nicht auf Anhieb 
läuft. Geringe Änderungen durften aber auch dieses 
Problem lösen. Leider kann ich keine Tips hierzu ge¬ 
ben, da es verschiedene Speieherkarten gibt. 

Aber auch mit einer Speicherkapazität von 512 KByte 
kann es sein, daß es noch nicht reicht! Und was soll 
der tun, der noch Garantie auf seinen CPC hat und sie 
durch einen Eingriff ja verlieren wUrde? Aus diesem 
Grunde nun Überlegungen nach einem anderen Weg. 
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Die Diskettenlaufwerke der Sehne 1 der-Computer zeichnen 
sich durch relativ hohe Lese- und Sehreibgeschwindig- 
keiten aus. Ein Zugriff lesender oder schreibender 
Art, nimmt deshalb wenig Zeit in Anspruch und ist fUr 
eine Dateiverwa1tung noch gut zu gebrauchen. Die Daten 
werden so schnell geholt, daß man es "erwarten" kann. 

Nur eines sollte auch bei Dateiverwa1tungs-Programmen 
dieses Buches, die mit den Disketten arbeiten, nicht 
geschehen, nämlich die Daten Uber Strings zu handha¬ 
ben. Aus diesem Grunde kommen nur direkte Zugriffe auf 
die Diskettensektoren in Frage. Genau dies lassen die 
CPCs aber nicht von Basic aus zu. Deshalb muß auch 
dafür eine Maschinensprache-Routine her. 

Dabei könnten nun bei dem einen oder anderen CPC-Be- 
sitzer Probleme auftreten, weil er nicht mit dem 
AMSTRAD-Disketten-Betriebs-System arbeitet. Das hat 
mir etwas Kopfzerbrechen bereitet. Aber ich habe - 
glaube ich - eine Lösung gefunden. 

Wenn die Forderungen, die seitens Amstrad an sogenann¬ 
te S1deway-ROMS, und das DOS ist eines davon, einge¬ 
halten werden, dann musste es mit einer der beiden 
Maschinenroutinen die ich geschrieben habe, auf alle 
FäIle klappen. 

Das ist also meine Lösung: Zwei unterschiedliche Ma- 
schinen-Programme! Damit die Handhabung dieser Routi¬ 
nen klar wird, verwende ich beim Programm RAND0MD1 die 
eine und bei RAND0MD2 die andere. 

Die erste Routine läuft ganz sicher unter AMSDOS (also 
dem Origina 1-CPC-DOS) und die zweite arbeitet ganz 
sicher mit dem VORTEX-Laufwerk Fl-X, also dem 5,25- 
Zo11-Laufwerk mit X-Modul. 

Die zweite Version wurde in Verbindung mit einem CPC 
6128 getestet, wobei das VDDS-ROM als Erweiterungs-ROM 
eins geschaltet war. 

Die erste Disketten-Routine - Sie finden sie bei den 
Programmbeschreibungen - heißt DISC1 und wurde sehr 
gut durchdacht. Mit ihr ist es möglich, von Basic aus 
alle Diskettenbefehle aufzurufen. Also sowohl die Be¬ 
fehle &81 bis &89, als auch andere wie DISC, A, B und 
auch Di rekt-Einspriinge in das DOS sind möglich. 
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Die neun Diskettenbefehle können direkt Ubergeben wer¬ 
den, für die anderen muß die Adresse an der sie stehen 
mitgeteilt werden, dann sucht das Programm durch An¬ 
sprung der Firmware-Routine KL FIND COMMAND die anzu¬ 
springende Adresse selbst. 

Deshalb hat der erste Teil des Maschinenprogrammes 
auch zwei Einsprungmöglichkeiten. Will man direkt ein- 
springen, dann muß sowohl die gewünschte Adresse mit 
POKE in den Speicher geschrieben werden, als auch die 
ROM-Nummer. Durch den Merker RUE kann sogar von Basic 
aus abgefragt werden, ob ein Diskettenbefehl korrekt 
ausgefUhrt wurde. 

Diese letzten Hinweise waren nur fUr Spezialisten ge¬ 
dacht, die diese Routine ganz hervorragend fUr bei¬ 
spielsweise einen Disketten-Monitor einsetzen können. 
Die Dateiverwa1tungsprogramme fUr den direkten Zugriff 
könnten Übrigens bei nur ganz kleinen Modifikationen 
sogar als Disketten-Monitor-Programm dienen! Ist doch 
klar warum und wie, oder? (Falls nicht, tut es mir 
leid, aber in diesem Buch geht es um Dateien). 

Am Ende des ersten Diskettenhilfsprogrammes ist dann 
noch eine kleine Tabelle enthalten, die zur Formatie¬ 
rung von Disketten dient. Diese Tabelle wird ln Ver¬ 
bindung mit einem zusätzlichen kleinen Basic-Programm 
dann verwendet, wenn den Sehneider-Disketten ein Spe¬ 
zial-Format verpaßt wird. 

Sie haben es bestimmt schon selbst bemerkt: Mit diesem 
Buch erfahren Sie nicht nur einiges Uber Dateiverwal¬ 
tungen, sondern erhalten gleichzeitig eine Menge 
Hi 1fs-Rou11nen und Tips auch für andere Programme. 

Nun zur zweiten Hilfsroutine. Sie heißt DISC2 und ist 
ebenfalls bei der Programm-Beschreibung für RAND0MD1 
zu finden. Zwar klappt mit dieser der Zugriff auf die 
Sehneider-Laufwerke ebenfalls, aber sie wurde eben 
noch zusätzlich geschrieben um Ihnen evtl, bei anderen 
Betriebssystemen zu helfen. 

Eine weitere Maschinensprache-Routine soll Ihnen nicht 
verheimlicht werden. Sie dient als Suchprogramm, um 
Zeichenfolgen in der Datei zu suchen. Hierüber er¬ 
fahren Sie aber später noch einiges. 
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5 Erstellen von Datei-Masken 


5.1 Vorbemerkungen zum Maskengenerator MASKGEN.BAS 

Nach den vielen theorethisehen Überlegungen nun zur 
Praxis. Bel allen nachfolgenden Programmen wird die 
oberste Speiehergrenze von &9FFF nicht Überschritten! 
Der Grund ist, daß die oberste benutzbare Speicher¬ 
grenze nicht immer genau festliegt. 

Sind nämlich Erweiterungs-ROMs (wie MAXAM, UTOPIA 
usw.) angeschlossen, dann benötigen diese Speicher¬ 
platz. Da Ich nicht weiß unter welchen Bedingungen Ihr 
CPC betrieben wird, habe ich diese Grenze einfach so 
festgelegt. 

Also nochmal: Die höchste Speicheradresse, die von den 
Dateiverwaltungsprogrammen 

RAMDISK1 
RAMDISK2 
RAND0MD1 
RAND0MD2 

benutzt wird, liegt unter &A000! 

Diese Obergrenze wird beispielsweise für das Programm 
RAMDISK1 im Maskengenerator MASKGEN.BAS festgelegt und 
könnte dort verändert werden. (Die maximale Obergrenze 
fUr die CPCs mit Diskettenlaufwerken wäre &A67b, wenn 
keine anderen Eprom-Erweiterungen angeschlossen sind.) 

Wird der Wert verändert, dann muß gleichzeitig auch 
der in der Data-Zeile 2430 enthaltene Wert "27671" um 
den Betrag der Erhöhung heraufgesetzt werden. 

Verwechseln Sie nun diese Hinweise auf die höchste 
Speieherste11e nicht mit der Grenze von HIMEM (wird 
durch MEMORY festgelegt). HIMEM wird in den Programmen 
noch viel tiefer gesetzt. 
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Der Bereich zwischen HIMEM und der obersten benutz¬ 
baren Spe1 eherste1 1e wird fUr die Maschinensprache- 
Routinen und vor allem fUr die Daten verwendet. 

Die Programme RAMDISK1 und RAMDISK2 könnten zwar prin¬ 
zipiell mit einem Kassettenrekorder arbeiten, aber 
nicht nur aus GeschwindIgke1ts-, sondern vor allem aus 
Sicherheitsgründen sollte Immer eine Diskettenstation 
eingesetzt werden. 

Ich betone es ausdrücklich noch einmal: 

Ich rate dringend davon ab, bei Dateiverwaltungen 
mit Kassettenrekordern zu arbeiten! 

Selbst wenn Sie bisher mit dem Kassettenrekorder zu 
Ihrem CPC nie Probleme hatten, ich verspreche Ihnen, 
Sie werden sie bekommen. 

Dateien dieses Umfanges können nicht mit der ausrei¬ 
chenden Datensicherheit mittels eines Rekorders ver¬ 
waltet werden. Hauptgrund hierfür sind "dropouts" also 
kleine Feh 1 erste1 1en im Bandmaterial, die sich so aus¬ 
wirken, daß es zu Leseproblemen kommt. Das Ergebnis 
ist: die Daten sind verloren! 

Ich habe es selbst versucht, mit RAMD1SK1 im Rekorder¬ 
betrieb zu arbeiten und bekam prompt Ärger! Also Fin¬ 
ger weg vom Rekorder wenn Sie Daten verarbeiten wol¬ 
len. 


5.2 Erstellung der Datei-Maske fUr RAMDISK1 

Setzen Sie den CPC durch den sogenannnten - Ihnen be¬ 
stimmt bekannten - "Dreifinger-Griff" (CONTROL-SHIFT- 
ESC) oder durch Aus-/Einscha1ten zurück und starten 
Sie bitte den Maskengenerator, also das Programm 
MASKGEN.BAS. 

Mit diesem wird nun die komfortable Erstellung der 
Datei-Maske durchgefUhrt. Möglich sind dabei pro "Kar¬ 
teikarte" bis zu 18 Felder. 

Aber vor der Erstellung echter Masken sollten Sie sich 
Gedanken darüber gemacht haben, wieviele Felder, wie¬ 
viele Zeichen pro Feld usw., fUr Ihre Datei erforder¬ 
lich sind. 
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Als Beispiel nehmen wir nun an, daß 15 Felder mit den 
folgenden Feldbezeichnungen nötig sind: 


Kunden-Nummer 

( 6 

Zeichen) 

F i rma 

(30 

Zeichen) 

Straße 

(30 

Zeichen) 

Pos 11eit zah1 

( 4 

Zeichen) 

Ort 

(25 

Zeichen) 

Telefon 

( 16 

Zeichen) 

Einkauf 

(20 

Zeichen) 

Techn i k 

(20 

Zeichen) 

Artikel gruppe 

( 4 

Zeichen) 

Besuche 1 

(40 

Ze i chen) 

Besuche 2 

(40 

Zeichen) 

nächster Besuchstermin 

( 8 

Zeichen) 

drei Felder fUr Bemerkungen 

(je 

40 Zeichen) 


Jede "Karteikarte" belegt deshalb 363 Zeichen. 


FUr diese Festlegung zeige Ich nun an einem kompletten 
Durchgang auf, was Sie zu tun haben, wenn Sie eine 
Maske erstellen wollen. Es Ist bestimmt nicht schwer, 
denn sonst wäre ein Maskengenerator nicht sehr sinn¬ 
voll. 

Auch diejenigen, die mit anderen Verwaltungsprogrammen 
dieses Buches arbeiten wollen, können diese kleine Be¬ 
dienungsanleitung benutzen, denn sie ist immer gleich. 

Nach dem Programmstart durch RUN "MASKGEN" meldet sich 
das Programm mit seinem "Titelbild", dessen grundsätz¬ 
lichen Aufbau Sie in Abbildung 4 sehen. 

Durch diese Darstellung fällt es Ihnen nun bestimmt 
leichter, der Beschreibung zu folgen, ln der Titel¬ 
zeile, also beim Programmnamen erscheint 

"Maskengenerator (c) by L. Miedel" 

und im Informationsfenster erscheint die Mitteilung 

"Maskenerstellung - Fuer welches Dateiverwa1tungsprogramro ?* 

Etwa in Bildschirmmitte sehen Sie die Zahlen 1 bis 4 
und die vier Namen der Programme, für die Masken er¬ 
stellt werden können. 
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'VmTTTBiFTXl 

[ 

! Inforwationsfenster 


Datenfenster 


Datenfenster 

i 

Datenfenster 


Datenfenster 

j Eingabefenster 

Abbildung 4: Die 

Einteilung des Bi1dschirmaufbaues beim 


Maskengenerator. 


In der Eingabezelle erfolgt die Mitteilung: 

"Bitte Ihre Eingabe (1 bis 4!)". 

Die Abbildung 5 zeigt die Bildschirm-Darstellung zu 
diesem Zeitpunkt. 

Da nun eine Maske fUr das erste Dateiverwa1tungs-Pro- 
gramm erstellt werden soll, muß ganz einfach die Zif¬ 
ferntaste "1" gedruckt werden. Nach dieser Eingabe 
wird der Mittelteil mit dem Programmnamen gelöscht. 

In der Informationszeile erscheint: 

"Gewaehltes Dateiprogramm; RAMDISKI.BAS" 

und im Eingabefenster werden Sie gefragt, ob eine be¬ 
reits bestehende Maske geladen werden soll. 
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Maskenerstellung - 

Euer welches Dateiverwaltungsprograwe? 


1 

RAMDISX1.BAS 


2 

RAMDISX2.BAS 


3 

BAND0MD1.BAS 


4 

RAND0MD2.BAS 

Bitte Ihre Eingabe 

(1 bis 4 !) 



Abbildung 5: Nun muß die Wahl erfolgen, fUr welches Datei- 
Programm die Maske sein soll. 


Da Sie noch keine Maske erste! lt haben, kann auch 
keine geladen werden, deshalb beantworten Sie diese 
Frage mit "n" fUr "nein". 

Als nächstes müssen Sie nun die Frage beantworten, 
wieviele Felder ein Dateieintrag (also eine Karteikar¬ 
te) haben soll. 

In der Eingabezeile erscheint: 

"Wieviele Felder soll ein Eintrag haben (max 18!) ?" 

Für die Demonstration haben wir insgesamt 15 Felder 
gewählt. Deshalb nun die Zahl 15 eingeben. 

Daraufhin wird Ihnen sowohl in der obersten Zeile 
neben dem Programm-Namen, als auch im Datenfeld, die 
Anzahl der Felder angezeigt. Die gleiche Anzeige er¬ 
folgt auch im "Karteninhalt", also im eingerahmten 
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großen Feld (lm großen Datenfenster). 

Haben Sie sich davon überzeugt, daß dieser Wert kor¬ 
rekt ist, dann kann die Frage im Eingabefenster: 

"Eingabe korrekt (J/n)" 

mit ”j" für ja beantwortet werden. Haben Sie sich bei 
der Eingabe vertan, dann kommen Sie durch Eingabe von 
"n" wieder zur vorherigen Frage nach der Feldanzahl. 

Nachdem Sie "j" eingegeben haben, erscheint nun rechts 
neben dem Dateinamen der Job, also die Tätigkeit, die 
nun ausgeführt werden soll: 

"Feldnameneingabe". 

In der Informationszelle, also unterhalb des 
Programmnamens erscheint die Mitteilung: 

"Maximale Laenge der Feldnamen 14 Zeichen." 

Diese Länge kann bei der Eingabe zwar überschritten 
werden, übernommen werden aber nur 14 Zeichen. 

Im Kartelfeid (Datenfenster) sehen Sie nun eine 1, als 
Hinweis daß der erste Feldname eingegeben werden soll, 
sowie einen H1nweispfe 1 1 . 

In der Eingabezeile werden Sie auf gef Ordert, den Feld¬ 
namen einzugeben. Nach Jeder mit ENTER abgeschlossenen 
Eingabe wird der Name im Kartenfeld angezeigt und zur 
nächsten Eingabe auf gefOrdert. Geben Sie keinen Namen 
ein, so setzt das Programm die Namen mit 

Fe 1d-Nr. x 

selbst. <x ist die laufende Nummer des Feldes.) 

Sind Sie am Ende dieser Eingaben angelangt, dann müs¬ 
sen Sie die Frage beantworten, ob die Eingaben korrekt 
sind. Nehmen wir an, sie wären es nicht! Beantworten 
Sie deshalb die Frage durch Eingabe von "n"! 

Daraufhin sehen Sie den Hinweispfeil beim Feldnamen 
mit der Nummer 1 stehen. Sie können nun durch Betäti¬ 
gen der ENTER-Taste die Namen solange übernehmen, bis 
Sie beim fehlerhaften Feldnamen angelangt sind. 


61 



Datei-Masken 


Der Hinwelspfeil zeigt immer auf den aktuellen Feld¬ 
namen. Nun brauchen Sie nur die Namenseingabe neu 
durchfuhren, dann wird dieser Feldname korrigiert. 
Falls keine weiteren Fehler mehr enthalten sind, brau¬ 
chen Sie nun nur sooft die ENTER-Taste zu betätigen, 
bis Sie wieder gefragt werden, ob die Eingaben korrekt 
sind. Die bereits eingegebenen, vorherigen Feldnamen 
werden wieder automatisch Übernommen. Sind Sie mit 
Ihren Eingaben zufrieden, geben Sie "j" fUr ja ein und 
das Programm fährt fort. 

In der obersten Zeile wird nun die Anzahl der mögli¬ 
chen Einträge ausgegeben. Wenn im Programm die Buffer¬ 
grenzen &3000 und &9FFF stehen, muß die Anzeige 28671 
sein. 

Da fUr das Programm RAMDISK1 diese Grenzen so festge¬ 
legt sind, muß bei Ihnen auch diese Zahl erscheinen. 
Sie nennt Ihnen die im Augenblick freie Anzahl der 
Datenbytes. Diese Anzahl von Zeichen stehen Ihnen also 
fUr die Daten zur Verfügung, denn Sie haben noch nicht 
festgelegt, wieviele Zeichen pro Eintrag reserviert 
werden. 

Wurden Sie jedem Feld nur ein Zeichen gönnen, dann 
könnten Sie 28671/15 = 1911,4 Einträge machen. Da aber 
nur ganze Einträge sinnvoll sind, wären es 1911 Ein¬ 
träge. Wenn Sie es zum Scherz einmal ausprobieren, 
werden Sie die Bestätigung finden. Es kann nichts da¬ 
bei passieren, denn Sie können es Ja wieder ändern. 

Nun wird es Zeit, daß wir wirkliche Längen bei den 
Eintragszeilen eingeben. Betätigen Sie nur die ENTER- 
Taste, dann werden vom Programm automatisch 20 Stellen 
pro Feld vorgegeben. 

Damit hätten Sie pro Karteikarte bei 15 Feldeinträgen 
(15*20) 300 Zeichen verbraucht. Die Kartenanzahl (=An- 
zahl der möglichen Einträge) wäre also 95 (Integerzahl 
aus 28671 dividiert durch 300). 

Aber wir wollen ja andere Werte eingeben, nämlich so 
wie oben angegeben. Aus diesem Grund können nur 78 
Karteikarten verwaltet werden. Dies sieht nun zwar 
nach sehr, sehr wenig aus, aber In Wirklichkeit ist es 
aufgrund der Tatsache, daß im Datenbereich nur Daten 
stehen, also ohne irgendwelche Variablenzeiger, doch 
sehr viel, denn jeder Eintrag umfaßt ja 363 Zeichen! 
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Wäre die Datei Uber Variable aufgebaut, dann hätten 
Sie wahrscheinlich, wenn alle Daten im Speicher gehal¬ 
ten werden sollen, auch nicht mehr mögliche Einträge. 
Außerdem wurden Sie den großen Vorteil, auch mit ande¬ 
ren Programmen sehr einfach auf die Daten zugreifen zu 
können verspielen und auch noch andere Vorteile ver- 
1ieren. 

Bei Programmen mit Variablen ist nie so recht bekannt, 
wieviele Einträge möglich sind, bevor Ihnen der CPC 

out of memory 

oder 

string space full 


meldet. 

Nun ein weiterer Punkt! Wie Sie sehen, hängt die maxi¬ 
male Eintragszahl von der Anzahl der benötigten Zei¬ 
chen ab. Sie können also bei der Planung auch anders¬ 
herum rechnen. 

Als Datenspeicher stehen Ihnen 20671 Bytes zur Verfü¬ 
gung. Wenn Sie also 78 Karten brauchen, dann sehen Sie 
durch die Rechnung INT (28671/78) =367, daß Sie pro 
Karte 367 Bytes verwenden dürfen. 

Bei 100 "Kunden" wären es 286 usw. Die restlichen 
Bytes verschenken Sie bei dieser Technik. Rechnen Sie 
doch einmal nach, wieviele bei unseren Festlegungen 
verschenkt werden. 

FUr diejenigen, die geradeso oberhalb der Kapazitäts¬ 
grenze liegen, hier nochmals der kurze Hinweis: 

Die Übergrenze des Datenbereiches kann geändert 
werden, und zwar bis an die normale HIMEM-Grenzs. 

Nur aus den schon genannten, verschiedenen Gründen 
wurde diese obere Grenze "tiefer ge 1 egt" (Vorhandensein 
von EPROM-ErweIterungen, Wunsch nach Hardcopy-Programm 
u. ä . ) . 

Doch wieder zurück zum laufenden Programm. Haben Sie 
nun alle Längenangaben gemacht, erfolgt wieder die 
Frage, ob alles korrekt ist. 
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Ähnlich wie bei der Eingabe der Feldnamen, können Sie 
- falls Sie es wünschen - nun wieder korrigieren 
(Siehe hierzu Abbildung 6). 

Falls Sie aber "j" eingegeben haben, befinden Sie sich 
nun im Mode des Plazierens. Nun können Sie die Ein¬ 
träge mittels der Cursorsteuertasten auf der Kartei¬ 
karte "umeinanderschieben" wie es Ihnen paßt. 

Durch Betätigung der COPY-Taste wird das Feld dann auf 
dem Bildschirm fixiert und das nächste Feld kann pla¬ 
ziert werden. Etwas schwierig wird es vielleicht, wenn 
Sie einen Feldnamen Uber den anderen schieben, aber 
Sie schaffen es schon! 


:mT 


inaoiiTM—lirum Anzahl der noeg liehen Eintraege: 78 


1.) 

Kunden-Nummer 

2.) 

Firma 

3.) 

Strasse 

4.) 

Postleitzahl 

S.) 

Ort 

S.) 

Telefon 

7.) 

Einkauf 

ft.) 

Technik 

9.) 

Artikelgruppe 

111 . > 

Besuche 1 

11.1 

Besuche 2 

12 .) 

M, Besuch 

13.) 

Bemerkungen 1 

14.) 

Bemerkungen 2 

19.) 

Bemerkungen 3 


Eingaben korrekt (j/n) ? 


Abbildung 6: So sollte die Darstellung bei den angenommenen 
Daten sein! 


Das Feld, das bewegt werden kann, wird immer invers 
dargestellt. Beim Bewegen wechselt die Invers- zur 
Norma1 darste 1 1ung und dann wieder zurUck. Bei vielen 
Feldern dauert der BewegungsVorgang etwas, deshalb 
sollten Sie dann Geduld haben, denn die Maskenerste 1 - 
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lung fUr eine Datei geschieht 
der Aufwand fllr ein schnelles 
schien mir hierfür einfach zu 


ja nicht sehr oft. Aber 
Maschinenprogramm er- 
hoch. 


iraTBTTJlTTnTlMBIBCTWIllfg.Fll Plazierung 


■Steuerunq nit Cursortasten 

■■■PPPHHi 


- Fixieren 

iCOPV e= Ende der Plazierung^*»® 





Strasse 

Ort 





Telefon :. 




Artikelgruppe :.... 









N. Besuch :. 

Bemerkungen 2 :..... 

Bemerkungen 3 .. 

Ihre Eingaben bitte! 


Abbildung 7: Beispiel fllr eine Plazierung 


Wenn Ihnen die Plazierung gefällt, können Sie diese 
durch Betätigung der Taste "e" abbrechen, werden wie¬ 
derum gefragt, ob die Eingaben korrekt sind und können 
- wie schon vorher auch -, wieder ändern oder die Pla¬ 
zierung beenden. Dann werden Ihnen noch zwei Werte 
mitgeteilt, nämlich wieviele Einträge mit dieser Maske 
möglich sind und welcher Offset von einem zum nächsten 
Eintrag besteht. Abbildung 7 zeigt mein Plazierungs- 
beispie1. 

Die letzte Frage des Programm 1 auf es betrifft die Mas¬ 
kenausgabe. Geben Sie "j" ein, dann werden die Masken¬ 
daten auf Diskette gespeichert, andernfalls erfolgt 
nur eine Bildschirmausgabe. Damit ist dieser Programm¬ 
teil abgeschlossen. 
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Wenn Sie die Maskendaten abgespeichert haben, können 
Sie diese nun bei einem neuerlichen Programmlauf ein¬ 
iesen, verändern, neu plazieren usw. Sie sehen, der 
Maskengenerator bietet trotz seiner langsamen Arbeits¬ 
weise beim Plazieren doch einigen Komfort. Ja Sie ken¬ 
nen sogar die Feldanzahl wieder ändern usw. Am besten 
spielen Sie etwas mit dem Programm, dann werden Sie 
sehen, es ist wirklich kinderleicht zu bedienen. 


5.3 E rstellung der Datei-Masken ftlr die anderen 
D ateiprogrammme 

Falls Sie mit einem anderen Dateiverwa1tungsprogramm 
dieses Buches arbeiten wollen, ist die Vorgehensweise 
ganz genauso! Nur die Daten sind anders, denn bei den 
anderen Programmen steht mehr Speicherplatz zur Daten¬ 
speicherung zur Verfügung. 

Da die Daten hierfür im Programm des Maskengenrators 
stehen, haben Sie nichts zusätzlich zu tun, sondern 
auch nur das Fragen- und Antwortenspiel mit dem CPC 
durchzufUhren. 

Allerdings ist es fUr Besitzer des CPC 464 oder 664 
sinnlos mit dem Programm RAMDISK2 arbeiten zu wollen, 
denn diesen fehlen die zusätzlichen 64 KByte Speicher¬ 
platz. Dagegen kann mit diesen beiden Computern 
selbstverständlich mit den Dateien fUr den Disketten- 
Randum-Betrleb gearbeitet werden. 
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6.1 Arbeiten mit RAHD1SK1 

Um mit den Date 1verwa1tungsprogrammen RAMDISK oder 
RANDOMD arbeiten zu können, muß bereits eine Datei¬ 
maske existieren. Selbst ein "Probelauf" ist ohne 
Maske nicht möglich! 

Weitere Voraussetzungen sind, daß sich das Basic-Pro- 
gramm und das Maschinenprogramm auf der Diskette be¬ 
finden. 

FUr RAMDISK1 gilt, daß Sie mit 2 Disketten arbeiten. 
Einmal die Programm-Diskette auf der sich die Pro¬ 
gramme : 


RAMDISk'l. BAS 
RAMDISK1.MPG 


befinden müssen. 

Auf der Datendiskette muß 

RAMDISK1.MSK 


stehen. 

Daten- und Programmdiskette können natürlich in einer 
einzigen vereinigt sein. Am besten die Seite A als 
"Programm-" und die Seite B als "Datendiskette" be¬ 
nutzen. 

Den Teil RAMDISK1.MPG müssen Sie durch den Ablauf des 
Programmes RAMDISK1.HEX erzeugt haben. Der Teil RAM- 
DISK1.MSK wird durch den Maskengenerator auf die Dis¬ 
kette geschrieben. Diese Programme finden Sie - genau¬ 
so wie den Basic-Teil RAMDiSKI.BAS - im Kapitel der 
Programmbeschreibungen. 
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Sind alle Teile vorhanden, dann starten Sie bitte das 
Programm RAMDI SKI.BAS! Nach kurzer Zelt meldet sich 
das Programm und teilt mit dem Hinweis 

"Lade das Maschinenprogramm" 

mit, daß nun der Maschinensprache-Teil geladen wird. 

Kurz darauf erscheint die Meldung: 

"Lese die Maskendaten". 

Am Ende des Ladevorganges sehen Sie ein Bild ähnlich 
dem des Plazierens der Feldnamen beim Maskengenerator, 
denn so wollten Sie das Aussehen Ihrer elektronischen 
Karteikarten haben. Nun können Sie bereits mit dem 
Programm arbeiten. 

Sinnvollerweise erfolgen nun erst einmal Eingaben. 

Bevor Sie aber die erste Eingabe machen, ein ganz 
wichtiger Hinweis! 

Das Programm hat in der Zeile 190 die Variable 
"basis". Sie dient dazu, daß im Falle von vorlie¬ 
genden Kundennummern, Uber die der Zugriff erfol¬ 
gen soll, die Startadresse festgelegt werden 
kann. 


Im Origina 1 Programm hat die Variable "basis" den Wert 
1. Dies bedeutet, daß der erste Eintrag auch die Num¬ 
mer 1 hat. Wenn nun aber ein Kundenstamm vorliegt, 
dessen erster Kunde die Nummer 134500 und der nächste 
die Nummer 134501 haben soll usw., dann kann der Vari¬ 
ablen "basis" der Grundwert 134500 zugeordnet werden. 
Damit ist es auch möglich (mit gewissen Handicaps), 
Dateien zu verarbeiten, die nicht mehr auf einmal in 
den Speicher des CPC passen. Man teilt die Daten dann 
auf mehrere Files auf und baut ggf. eine kleine Einga¬ 
be-Routine fUr die Variable "basis" ein. Beim Programm 
RAMDISK1.BAS sollte diese Routine nicht zu umfangreich 
sein, denn es ist nur noch sehr wenig Speicherplatz 
frei ! 

Als Suchkriterium und auch als korrekter Offset fUr 
die "Kunden-Karten" dient die Eintragsnummer. Haben 
die Kundennummern mehr als sechs Stellen, dann muß im 
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jeweiligen Basic-Teil und natürlich auch in der rich¬ 
tigen Programmzeile die Zuweisung .. LEFT$(enr$,6) .. 

- und zwar der Wert 6 - geändert werden. 

Falls nun die "basis" den Wert 134500 hat, dann hat 
bei den angenommenen Daten (78 Einträge mit je 363 
Bytes) die höchste "Kunden-Nummer" den Wert 134577. 

Hat "basis" den Wert 82, dann ist die niedrigste Num¬ 
mer eben 82 und die höchste 159. Ist doch ganz ein¬ 
fach, oder? 

Nach dem Programmstart meldet sich das Programm auch 
mit der Eintragsnummer, die dem Wert in "basis” ent¬ 
spricht. Die weitere Bedienung des Programmes ist ein 
Kindersp1e1. 

Da nach dem Start alle Inhalte der Datenbytes auf den 
"fuellwert” gesetzt werden (fchar und Aufruf von fil¬ 
ier), vorgesehen ist der Punkt, müssen durch den Be¬ 
fehl "L" (LOAD) gegebenenfalls erst die Daten geladen 
werden. Vorausgesetzt, es sind bereits welche vorhan¬ 
den. 

Wir müssen aber erst welche eingeben. Doch vorher sol¬ 
len Sie erst einmal alle Befehle zur Programm-Bedie¬ 
nung kennen 1ernen. 


6.1.1 Die Bedienungsbefehle fUr die Datei-Programme 

L (LOAD) - Laden des Datenfiles 
S (SAVE) - Speichern des Datenfiles 
F (FIND) - Suchen nach einer Zeichenfolge 
G (GOTO) - Gehe zu einer noch einzugebenden Nummer 
E (ENDE) - Beenden des Programmes 


Außerdem können auch die Cursor-Steuertasten zur Be¬ 
dienung benutzt werden. 

Cursor links - Eine Eintragnummer tiefer 
Cursor rechts - Eine Eintragsnummer höher 
Cursor hoch - Zehn Eintragsnummern höher 

Cursor tief - Zehn Eintragsnummern tiefer 


Alle Eingaben werden durch die COPY-Taste eingeleitet 
und können damit (vorzeitig) auch wieder beendet wer¬ 
den. 
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Ansonsten wird jede Eingabe mit der ENTER- oder 
RETURN-Taste abgeschlossen. 

Mehr Funktionen gibt es zur Verwaltung der Daten 
nicht! 

Einfacher in der Bedienung kann ein Dateiverwa1tungs- 
Programm doch kaum sein! Die paar wenigen Befehle kann 
man sich sehr leicht merken, deshalb ist auch keiner¬ 
lei Anzeige dieser Funktionen vorgesehen. 

Falls Sie noch keine Daten eingegeben haben, drücken 
Sie nun bitte die COPY-Taste und füllen Sie das "Kar- 
ten-Formu1ar" aus. Dadurch ergibt sich dann ein Bild, 
das wie Abbildung 8 aussehen kann. 

Bei den Eingaben ist zu berücksichtigen, daß die DEL- 
Taste nicht arbeitet. Falsche Eingaben werden deshalb 
einfach nur Uberschrieben. Um an die gewünschte Posi¬ 
tion zum Überschreiben zu kommen, braucht nur mit den 
Cursor-Steuertasten "hingefahren" zu werden. 


imnprn»n«intgn»;r:i:B«.in 


Dateieintraege: 78 


Bitte Ihre Eingaben! 


Kunden-Nummer 

Postleitzahl 

Einkauf 

Artikelgruppe 

Besuche 1 
Besuche 2 


:900001 Firma 

Strasse 

:9023 Ort 

iFrau Schroeder. 

:0078 

:Jan 86/Mar 86/Sept 86/., 


iBauer Heinrich. 

:Uiesenstrasse 12. 

:Hunnersdorf 23. 

Telefon :09831/1004. 

Technik .'Drommmer Friedrich.. 


N. Besuch :Nov 1986 

Bemerkungen 1 sevtl. Interesse an Artikelgruppe B0087/S 

Bemerkungen 2 muss im November abgeklaert Herden!. 

Bemerkungen 3 :Hierzu Katalog B008 nitnehmen!. 


1111 Ui—BHH—WM—iiMl— 


Abbildung 8: Eingaben sind gleichbedeutend mit Änderungen. 
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I ra Informationsfe 1 d werden Sie zu Ihren Eingaben auf¬ 
gefordert, im Eingabefeld - das nun nicht zur Eingabe 
dient - sehen Sie invertiert dargestellt, die Mittei¬ 
lung "Aendern" und rechts daneben die Eintragsnummer. 
Die Eingaben selbst werden an den durch den Maskenge¬ 
neratorlauf festgelegten Plätzen gemacht. 

Wenn Sie sortieren oder ausdrucken wollen, so geht das 
auch, aber das machen dann andere Programme. Wie das 
geht erfahren Sie im Kapitel der Zusatzprogramme. Denn 
im Augenblick arbeiten wir mit einem "Datenverwalter", 
also mit einem Programm, mit dem nur "verwaltet" wird. 

Nach der Eingabe können Sie mittels der Cursortaste 
"rechts" zum nächsten Eintrag gehen. Wollen Sie aber 
direkt eine Eintragsnummer anwählen, so geschieht dies 
durch Eingabe von "g" fUr GOTO und anschließender Ein¬ 
gabe der Nummer. Abbildung 9 zeigt die Bi 1dschirmdar- 
ste11ung. 


iiH4JHHWamnCTai«:r:i:BHHa_ Dateieintraege: 78 




Kunden-Murner 

:000070 Firma 

:Hinteraaier Rudolf 


Strasse 

:Rosenstrasse 14 

Postleitzahl 

:8000 Ort 

:Muenchen 33 

Telefon :989/1234S6 

Einkauf 

:Friedr. Rupp 

Technik :Enil Kaiser 

Artikelgruppe 

:???? 


Besuche 1 
Besuche 2 

:Erstbesuch geplant 


Bemerkungen 1 
Bemerkungen 2 
Bemerkungen 3 

N. Besuch :Jan 87 

:Besuchsgrund: laufend techn. Anfragen 
:uegen Produktlinie COSHCS 
:Noch kein Kunde !! 


Eintragsnumner? 12 


Abbildung 9: Einfache Auswahl durch GOTO 
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Sie werden sehr schnell mit dieser Technik vertraut 
sein. Doch es gibt Ja noch mehr Funktionen, die noch 
nicht besprochen sind. Sie können Einträge auch suchen 
lassen. Hierzu geben Sie den Befehl ”f" (FIND) ein. 

Die Abbildung 10 zeigt, wie Sie nach bestimmten Zei¬ 
chenfolgen suchen lassen können. 

Zur Suche sollten Sie aber noch einiges wissen. Ge¬ 
sucht wird Immer ab der nächsten "Karte", denn die 
augenblicklich "Aktuelle" haben Sie ja vor Augen. Das 
bedeutet, daß Sie dann, wenn Sie die gesamte Datei 
durchsuchen lassen wollen, zuerst auf die niedrigste 
Eintragsnummer zu positionieren haben. 

Der Sinn dieser Suchtechnik Ist, daß Sie alle Einträge 
bei denen Übereinstimmung vorliegt auch finden können. 
Denn wurde der Suchvorgang Immer beim ersten Eintrag 
beginnen, dann könnte auch immer nur die erste Über¬ 
einstimmung gefunden werden. 

Weitere Übereinstimmungen, die in anderen Einträgen 
enthalten wären, kämen deshalb nicht auf den Bild¬ 
schirm. Das Suchprogramm startet immer ab dem Ende des 
aktuellen - also auf dem Bildschirm sichtbaren - Ein¬ 
trages. 

Das Suchprogramm sucht aber nicht "feldmäßig", sondern 
"eintragsmäßig" und das bedeutet, daß dann, wenn der 
Suchbegriff beispielsweise "geweg" lauten wurde, auch 
ein Eintrag ausfindig gemacht wird, der so aussieht 
wie es Abbildung 9 zeigt. Die Folge stimmt ja Uberein! 

Wenn Sie sich diese Abbildung ansehen, wird auch klar 
warum! In der Spalte Bemerkungen 1 sind die letzten 
beiden Buchstaben "ge" und in Bemerkungen 2 die ersten 
drei Zeichen "weg" und deshalb muß dieser Eintrag bei 
der angenommenen Suchfolge gefunden werden. 

Falls der Suchstring aber - z. Beispiel durch Groß- 
/Kleinschrlft-Unterschiede - nicht exakt Uberein- 
stimmt, wird das Programm nicht fündig! In diesem Fall 
verhält sich das Programm so, als ob ein Fehler aufge¬ 
treten wäre. 

Sind Sie sich Uber die genaue Schreibweise nicht im 
Klaren, dann geben Sie deshalb nur das ein, was Sie 
als definitiv richtig kennen, dann klappt die Sache. 
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Diese Fehlermeldung, deren Aussehen die Abbildung 11 
zeigt, tritt beispielsweise auch dann auf, wenn Sie 
die maximal zulässige Eintragsnummer Uber- oder die 
minimale unterschritten haben. Allerdings brauchen Sie 
bei den Eingaben keine Befürchtungen zu haben, daß 
Ihnen durch falsche Angaben das Programm aussteigt 
oder ähnliches, es wird dann lediglich entweder auf 
die niedrigste oder auf die höchste Eintragsnummer 
positioniert! 


IHlBEMMMlffliBUBa 


Dateieintraege: 78 


Firma 

Strasse 

Ort 


MIM1TJ1W Bitte geben Sie die Zeichenfolge ein! 
Kunden-N immer 

Postleitzahl 

Einkauf 

Artikel gruppe 

Besuche 1 
Besuche 2 


Bemerkungen 1 
Bemerkungen 2 
Bemerkungen 3 


Telefon 

Technik 


N. Besuch 


I ? unde 


Abbildung 10: Komfortables Suchen nach Zeichenfolgen. 


Sie werden bei beiden Programmen fUr den RAM-Disk-Be- 
trieb erstaunt sein, mit welcher Geschwindigkeit die 
Daten geholt und auf den Bildschirm gebracht werden. 

So schnell geht es eben nur in Maschinensprache! 

Diese hohe Geschwindigkeit gilt auch ftlr die Suchvor¬ 
gänge. Falls Sie aber den gesamten Datenbereich bei¬ 
spielsweise mit der Buchstabenkombination "abcdef" be¬ 
schrieben haben und nur in den letzten Speieherste11en 
die Folge "abedex" enthalten Ist und Sie auch noch 
nach dieser suchen wollen, dann dauert es halt ein 
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paar Sekunden, bis das Suchprogramm bei dieser Art von 
"Veräppe1ung" alle "Feh 1eint rage" untersucht und wie¬ 
der verworfen hat. 

Ein paar Worte noch zu den Punkten, die Sie bei leeren 
Karten sehen. Um nicht auch noch den Aufwand für "Mar¬ 
ker", die den Beginn und das Ende der Feldmaske anzei- 
gen programmieren zu müssen, wurde diese Art von Dar¬ 
stellung gewählt. 

Sie können selbstverständlich das Füllzeichen ändern 
und hätten beispielsweise durch den Fiil I zeichenwert 32 
(&20) lauter "Spaces" also Leerzeichen. 




Dateieintraege: 78 


jpinay 


Kunden-Nummer 


Postleitzahl 


Firma :. 

Strasse :. 

Ort :. 

Telefon 


Einkauf :. Technik :. 

Artikelgruppe :.... 

Besuche 1 : . 

Besuche 2 :. 

N. Besuch 

Bemerkungen 1 ;... 

Bemerkungen 2 :. 

Bemerkungen 3 :... 




Abbildung 11: Anzeige eines auf getretenen Fehlers oder auch, 
daß das Suchprogramm nicht "flindig" wurde. 


Andererseits wurden Sie dann aber keine Grenzen erken¬ 
nen. Da aber bei Benutzung einer Datei ja auch Ein¬ 
träge gemacht werden, können Sie bei jeder Eingabe 
diese Punkte "wegradieren" wenn Sie diese nicht wün¬ 
schen. 
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Die Punkte können aber auch noch einem anderen Zweck 
d1enen. 

Normalerweise beginnt kein gültiger Eintrag mit einem 
Punkt. Steht ein solcher jedoch am Anfang eines Fel¬ 
des, dann sollte davon ausgegangen werden, daß dieses 
Feld leer ist. Diese Tatsache kann dann bei anderen 
Programmen ausgenutzt werden. 

Ein Sortierprogramm beispielsweise kann dadurch noch 
schneller werden, indem es solche Einträge "verwirft", 
also gar nicht berücksichtigt. Sie sehen, auch Satz¬ 
zeichen können mehrere Zwecke erfüllen. 
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6.2 Arbeiten mit RAMDISK2 
(Nur fUr CPC 6128) 

Um mit diesem Programm arbeiten zu können, müssen fol¬ 
gende Programmtelle auf der Diskette vorhanden sein: 

RAMDISK2.BAS 
RAMD1SK2.MPG 
RAMDISK2.MSK 

Der Teil RAMDISK2.MPG muß mit dem Hex 1ader-Programm 
RAMD1SK2.HEX erzeugt worden sein. Die Dateimaske RAM- 
DISK2.MSK wird beim Programmlauf des Maskengenerators 
geschrleben. 

Bevor Sie aber starten können, sollten Sie die Pro¬ 
gramm-Bedienung von RAMDISK1 gelesen haben, da diese 
in etwa der Bedienung von RAMDISK2 entspricht. Das 
heißt, dort finden Sie die prinzipiellen GrundzUge der 
Vorgehensweise. Das Programm unterscheidet sich lm We¬ 
sentlichen nur durch die Ausnutzung der zusätzlichen 
Spe1 cherb1öcke des CPC. 

Die Abbildungen bei RAMDISK1 sind natürlich nicht ganz 
mit dem Identisch, was Sie auf dem Bildschirm sehen, 
aber die Unterschiede sind so gering, daß es Ihnen 
bestimmt nichts ausmacht. 

Die beiden Basic1Istings unterscheiden sich aber 
stark, denn durch den begrenzten Speicherplatz beim 
CPC 464 und 664 konnte das Programm RAMDISK1.BAS nicht 
so Übersichtlich programmiert und dargestellt werden. 

Beim Programm RAMDISK2 steht Ihnen also auch fUr das 
Basic-Programm selbst mehr Platz zur Verfügung, da die 
HIMEM-Grenze mit &3FFF festgelegt wird und die Maschi¬ 
nenprogramme ab 8*8000 stehen werden. Da insgesamt fünf 
Blöcke a 16 KByte als Datenspeicher dienen, stehen 
Ihnen bei diesem Programm insgesamt 80 KByte Daten¬ 
speicher zur Verfügung! 16 KByte mehr als beim Einsatz 
von BANKMAN! 

Auch fUr dieses Programm gilt, daß Sie eine Programm¬ 
und eine Datendiskette haben. Diese können ebenso wie 
bei RAMDISK1 die Vorder- und Rückseite einer Diskette 
sein. 

Auf der Programmdiskette müssen die Programme (Basic- 
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und Maschinenprogramm) stehen und auf der Datendisket¬ 
te die Daten (also auch die Daten der Maske!). 

Starten Sie den Programmteil RAMD1SK2.BAS! Bedingt 
durch die größere Datenmenge haben Sie längere Lade- 
und Speicherzeiten beim Einlesen der Datenfiles als 
beim Programm RAMDISK1, es hat aber auch noch andere 
Konsequenzen. Der Platz auf einer AMSDOS-Diskette ist 
sehr gering. Deshalb werden die Datenfiles mit der Ex¬ 
tension .DAx gekennzeichnet. 

Diese Art von Kennzeichnung bewirkt, daß beim Über¬ 
schreiben dieser Files (z.B. durch mehrmaliges Abspei¬ 
chern hintereinander) nur ein einziges File mit der 
Extension .BAK entsteht. Dadurch kann bei diesen Vor¬ 
gängen keine "Diskette vo1 1"-Me 1 düng erscheinen. 

Ein anderer Punkt ist auch noch wichtig. Sie können 
jederzeit die Diskette wechseln. Wenn Sie also Sicher¬ 
heitskopien haben wollen, oder die Datenfiles fUr an¬ 
dere Programme duplizieren wollen, so ist dies jeder¬ 
zeit durch den Aufruf von "s" möglich. Auf der Daten¬ 
diskette muß nur ausreichend Platz sein. So kann, wenn 
Sie nach dem "Großvater-Vater-Sohn"-Prinzip arbeiten, 
eigentlich Überhaupt nichts mehr schief laufen. Daten¬ 
verluste sind fast ausgeschlossen. 

Files mit der Extension .BAK sollten immer so schnell 
wie möglich gelöscht werden, damit Sie beispielsweise 
für Sortierfiles Platz haben. Wie Löschungen erfolgen 
können, steht im Handbuch. Derartige Löschvorgänge 
können auch "programm-gesteuert" sein. Wer will kann 
deshalb nach den fUr das Abspeichern verantwortlichen 
Zeilen noch den Befehl zum Löschen nicht mehr benötig¬ 
ter Files unterbringen. 

Das Programm arbeitet mit einem Laufwerk, kann aber 
ganz schnell so geändert werden, daß es mit zwei Lauf¬ 
werken arbeitet. Dann kann beispielsweise im Laufwerk 
1 immer die Programmdiskette und in Laufwerk 2 die 
Datendiskette stecken. Wie Sie es eben wünschen. 

Ebenso kann als Zwe111 aufwerk auch z.B. ein VORTEX-X- 
Laufwerk eingesetzt werden, da dann auch mehr Disket¬ 
tenkapazität zur Verfügung steht, muß vor den Abspei¬ 
cher vor gängen dann nur selten etwas gelöscht werden. 
Für ausreichende Datensicherheit insofern, daß Sie 
Sicherheitsduplikate für die Daten anlegen, haben Sie 
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in diesem Falle dann auch selbst Sorge zu tragen. Ein 
mehrmaliges Speichern von Datenfiles, auch wenn dies 
unter anderen File-Namen erfolgen sollte, ist keine 
Sicherheitskopie! 

Falls das Programm einmal - wegen zu voller Datendis¬ 
kette - abbrechen sollte, sind Ihre zwischenzeitlich 
geänderten Daten nicht verloren. Es wird dann zwar die 
Bildmaske zerstört, aber sonst ist nichts passiert. 
Eine Diskette mit ausreichender Kapazität einlegen und 
weitermachen (CONT) bzw. die Zeile 2020 durch GOTO 
auf rufen. 

Man kann eigentlich Überhaupt nichts verkehrt machen, 
denn trotz der hohen Leistungsfähigkeit dieser Pro¬ 
gramme sind sie sehr einfach zu handhaben. 

Wie Sie Daten ausdrucken und sortieren lassen können, 
ist im Kapitel der Zusatz- und Hilfsprogramme nachzu¬ 
lesen. 
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6.3 Arbeiten mit RAND0MD1 

Auch für dieses Programm gilt, daß Sie sich die prin¬ 
zipielle Arbeitsweise und vor allem die Bedienungsbe¬ 
fehle erst einmal durchlesen sollten. Zu finden ist es 
am Anfang dieses Kapitels. Lesen Sie deshalb bitte zu¬ 
erst einmal den Teil unter 6.1 (Arbeiten mit RAM- 
DI SKI ) . 

Folgende Programmtelle müssen auf der Diskette vorhan¬ 
den sein! 


RAND0MD1.BAS 
RAND0MD1.MPG 
RAND0MD1.MSK 


Denken Sie auch hier daran: Daten- und Programmdis¬ 
kette! Der Masch1nensprache-Tei1 wird mit dem Programm 
RDKPL.HEX erzeugt. 

Außerdem wird, um etwas mehr Kapazität zu gewinnen, 
bei den Disketten ein "Spez1a1format" benötigt. Dieses 
Format kann mit dem Programm SPEZFORM.BAS erzeugt wer¬ 
den. 

Sie arbeiten also mit zwei Disketten; der Programmdis¬ 
kette und der Datendiskette. Bel den Schneider-Disket¬ 
ten kann es auch so gehandhabt werden, auf der Vorder¬ 
seite die Programme und auf der Rückseite die Daten zu 
haben. 

Als Programm sollten Sie RAND0MD1.BAS starten und eine 
speziell vorbereitete Datendiskette bereithalten. Auch 
dieses Programm kann so umgeschrieben werden, daß im¬ 
mer dann, wenn auf Daten zugegriffen wird, die Um¬ 
schaltung auf ein zweites Laufwerk erfolgt. 

Das Programm sagt Ihnen nach dem Start, was Sie zu tun 
haben! Alles andere ist wie gehabt. 

Daß Ihnen die Befehle "1" fUr LOAD und "s" fUr SAVE 
nicht zur Verfügung stehen, werden Sie nicht nur be¬ 
merken, sondern Sie werden auch wissen warum: Geladen 
bzw. gespeichert wird immer nur dann, wenn ein Daten¬ 
handling zu erfolgen hat und dies mit direktem Zugriff 
auf einzelne Sektoren der Datendiskette. 
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Dies Ist beispielsweise Immer dann der Fall, wenn zu 
einer bestimmten Eintragsnummer gegangen werden soll. 
Dann werden die Daten in den Speicher geholt. Also 
auch wenn Sie mit Cursorsteuerung arbeiten wird flir 
jeden Tastendruck ein Ein1ese-Vor gang ausgelöst. 

Bei Änderungen ist es ebenso, nach der Änderung wird 
sofort auf die Diskette zurUckgeschrieben. 

Das Suchen dauert nun - bedingt dadurch, daß Jeder 
Eintrag erst eingelesen werden muß - um einiges länger 
als bei reinem RAM-Disk-Betrieb. Aber ansonsten wird 
das Programm genauso "fündig" wie bei den Programmen 
RAMDISK. 

Bei dieser Version habe ich die 0ffset-Mög1ichkeit 
durch "basis" nicht einprogrammiert, wer diese Funk¬ 
tion braucht, kann bei RAND0MD2.BAS nachsehen wie es 
geht und das Programm entsprechend abändern. Es ist 
hoffentlich nicht zuviel verlangt. Aber ich hatte es 
an anderer Stelle schon einmal erwähnt: Dieses Buch 
ist kein Dateiverwa1tungsprogramm, sondern ein Anlei¬ 
tungsbuch, wie Sie eigene Dateiverwa1tungsprogramme 
schreiben können. 

Deshalb sind auch viele Dinge in den Musterprogrammen 
nicht programmiert worden. So kann zum Beispiel jeder¬ 
zeit mit der ESC-Taste abgebrochen werden, eine Sache 
die ich bei einem Arbeitsprogramm auf Jeden Fall ver¬ 
hindern würde! 

Die Ausgaben von Disketten-Feh1erme1 düngen im Datei¬ 
fenster sollten auf alle Fälle verhindert werden. 
Überhaupt sollten alle auf tretbaren Fehler Uber eine 
Feh 1 er-Routine abgefangen werden. All das sind Punkte, 
die Sie dann durchaus noch selbst einprogrammieren 
können und dürfen. Das "Schönheits-Empfinden" ver¬ 
schiedener Menschen ist unterschiedlich. Betrachten 
Sie deshalb die ganzen Programme nur als Vorschläge. 
Ich gehe auch davon aus, denn sonst hätten Sie Ja ein 
Datei-Verwa1tungsprogramm erstanden und nicht dieses 
Buch. 

Auch die zu diesem Buch erhältliche Diskette ist als 
reine Abtipphilfe gedacht, damit vor allem weniger 
programmiererfahrene CPC-Besitzer nicht für alle Zei¬ 
ten nach Ab11ppfeh 1ern suchen müssen. 
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6.4 Arbeiten mit RAND0MD2 

Wenn Sie bisher noch mit keinem der anderen Dateiver¬ 
waltungsprogramme RAMDISK oder RAND0MD1 garbeitet ha¬ 
ben, dann sollten Sie erst einmal die grundsätzliche 
Bedienung unter 6.1 nachlesen. 

Haben Sie bereits mit RAND0MD1 gearbeitet, dann wissen 
Sie, daß bei diesem eine speziell formatierte Diskette 
benutzt wird. 

Das soll nun auch geschehen. Allerdings noch weiterge¬ 
hend als bei RAND0MD1. Dort haben wir ja einen Sektor 
vor den Daten verschont. Bei diesem Programm wollen 
wir nun das maximale, was mit normalen Mitteln an 
Speicherkapazität "rauszuholen" ist, auch benutzen: 

Die gesamte Diskette dient als Datenspeicher. Es steht 
Ihnen also nicht einmal mehr ein Inhaltsverzeichnis 
zur Verfügung, sondern Überall werden auf der Diskette 
nur Daten stehen. 

Doch dazu brauchen wir eine speziell vorbereitete Dis¬ 
kette ! 

Wer sich mit dem Programm RAND0MD1 schon beschäftigt 
hat, der weiß wahrscheinlich auch, warum die Daten- 
Disketten speziell präpariert werden. 

Wer es noch nicht weiß, erfährt es hier. Bei einem 
Formatiervor gang werden die Disketten in Spuren und 
Sektoren eingeteilt. Gleichzeitig werden alle Inhalte 
der Sektoren mit dem Fillerbyte beschrieben. Standard¬ 
mäßig ist der Wert des Fillerbytes &E5. (Dieser Wert 
ist u.a. auch gleichzeitig die Kennzeichnung fUr ge¬ 
löschte Files in den Directory-Einträgen.) 

Da dann, wenn noch keinerlei Einträge in die Datei 
gemacht wurden, alle nutzbaren Bytes der Diskette den 
Wert &E5 haben, wurde auf dem Bildschirm immer ein 
Wald von PIK-Bildchen (ein kleines ausfUlltes Blatt) 
zu sehen sein. Da dies fUr Eingaben nicht gerade pro¬ 
fessionell aussieht, habe ich einfach bestimmt, daß 
die Disketten mit dem Fillerbyte fUr den Punkt forma¬ 
tiert werden. Das ist der Grund fUr den speziellen 
Formatier vor gang. Wen es nicht stört, daß in den Ein¬ 
trägen zu Beginn immer ein "Laubwald" steht, der kann 
den Spezia1-Formatier-Vor gang auch unterbleiben 
1assen. 
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Wie bei RAND0MD1 fehlen auch bei diesem Programm die 
beiden Befehle fUr das Laden oder Speichern. Sie wer¬ 
den ja nicht benötigt. 

Gleichzeitig gilt auch, daß die n F"-Funktion also das 
Finden von ASCil-Folgen eben länger dauert, da jeder 
Eintrag erst gelesen werden muß. 

Doch nun zu einer weiteren Besonderheit. Um Ihnen mög¬ 
lichst viele Variationen bei den Programmen zur Daten¬ 
verarbeitung zu zeigen, habe ich bei diesem Programm 
folgende Voraussetzungen angenommen: 

Das Erstlaufwerk ist ein 3-Zo11-Laufwerk. Auf der dort 
eingelegten Diskette stehen die Programme und die Has- 
ken-Daten . 

Die Files 


RAND0MD2.BAS 
RAND0MD2.MPG 
RAND0MD2.MSK 

mtissen also auf der 3-Zo 1 1-D i ske t te stehen. Als Lauf¬ 
werk 2 steht ein VORTEX-X-Modu1-Laufwerk zu Verfügung. 
Gearbeitet wird nicht unter AMSDOS, sondern unter 
VDQS ! 

Die Daten stehen auf der Diskette im VORTEX-Laufwerke, 
bzw. werden dorthin geschrieben. Das bedeutet fUr die 
Praxis aber, daß die Datendiskette besonders auffällig 
gekennzeichnet werden muß und daß die Datensicherung 
auf völlig andere Art zu geschehen hat als bisher. 

Hierzu brauchen Sie ein Programm, das Ihre Daten-Dis- 
kette dupliziert! Und nun tritt ein kleines Problem 
auf: Ich weiß nicht welchen CPC Sie haben. Deshalb 
kann ich nur die Minima1konfiguration annehmen. Sie 
haben einen CPC 464!! 

Scherz beiseite, ich muß eben annehmen, daß Sie nur 
soviel Speicherplatz zur Verfügung haben, als hätten 
Sie einen CPC 464. Kopieren dauert dementsprechend 
lange und ist mit vielen Diskettenwechseln verbunden. 

Der CPC 464 oder 664 bremst mit seinem geringem Spei¬ 
cherplatz das Anlegen von Sicherheitskopien und des- 
ha1b dauert der Kopiervorgang Ihrer Datendiskette et- 
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was. Sie werden auch immer wieder zum Diskettenwechse! 
auf gefordert. 

Wer ein Programm hat, das in der L.age ist, alle Spuren 
und Sektoren einer Diskette zu lesen und dann auf ei¬ 
ner zweiten zu schreiben kann dieses flir die Duplizie- 
rung einsetzen. Wer keines hat, kann das Hilfsprogramm 
DUPL11.BAS dieses Buches verwenden. 

Doch nicht nur die 464-/664-Besitzer sollen Sicher¬ 
heit sd i ske t ten anlegen und deshalb ist noch ein wei¬ 
teres Programm zum Anlegen von Kopien im Buch: 
DUPLI2.BAS. CPC 6128-Besitzer werden damit bestimmt 
große Freude haben. 

Ansonsten ist das Datei-Programm im großen und ganzen 
dem Programm RAND0MD1 entsprechend. Eine große Aus¬ 
nahme aber gibt es. Als Maschinenprogramm findet die 
Routine DISC2 Verwendung. 

Die Zugriffe auf die Diskettenstation sind deshalb im 
Basiclisting um einiges anders. 
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7.1 Vorbemerkungen zu den Programmbeschreibungen 

Wegen des Umfanges der gesamten Programme kann für die 
Listings keine komplette Beschreibung jedes einzelnen 
in den Programmen verwendeten Befehles oder meiner Ge¬ 
dankengänge erfolgen, die mich zu diesm Lösungsweg 
veranlaßt haben. Dies wUrde den Rahmen dieses Buches 
sprengen. Im Vordergrund stand aber immer, alle Pro¬ 
gramme so zu schreiben, daß es fUr Sie nachvollziehbar 
ist, auch wenn dadurch manchmal alles etwas umständ¬ 
licher (dafür aber übersichtlicher) programmiert wer¬ 
den mußte. 

Trotzdem will ich versuchen, Ihnen für alle Programme 
wenigstens die wichtigsten Programmzeilen und Routinen 
zu erläutern, damit Sie - für evtl, eigene Anpassungen 
- das jeweilige Programm verstehen und den Teil, in 
dem die Änderungen zu erfolgen haben, schneller auf¬ 
finden können. 


7.2 Programm MASKGEN.BAS 

Die Zeilen bis 230 sind reine Bernerkungszei1en und ha¬ 
ben mit dem eigentlichen Programmlauf nichts zu tun. 

Die Zeile 240 dient dazu, die Ein-Ausgabe-Buffer für 
das Lesen und Schreiben der Datenfiles bereits zu Be¬ 
ginn vom CPC einrichten zu lassen. Außerdem wird der 
80-Zeichen-MODE festgelegt. 

Die Zeilen 270 und 280 legen die verschiedenen Fenster 
fest. 

Die Zeilen 310 und 320 zeichnen den Rahmen der "Kar¬ 
teikarte" und dienen in diesem Programm gleich als Ar- 
beitsmaske. 
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Da maximal 18 Felder definiert werden sollten, wird in 
Zeile 350 dimensioniert. Die Dimensionierung erfolgt 
um einen Wert höher, als eigentlich erforderlich. Dies 
hat nur programmtechnisehe Gründe. Im Prinzip wäre die 
Dimensionierung mit 17 ausreichend, aber dann mußten 
Positionsangaben fUr den LOCATE-Befeh 1 immer mit +1 
versehen werden. 

Die Zeilen 370 bis 480 legen bestimmte Variable vorab 
fest, damit Änderungen einfacher durchgefUhrt werden 
können. Gleichzeitig werden in diesen Zeilen die 
"Dummy"-Fe 1dnamen (fenam$(l)) und "Dummy"-Fe1d1ängen 
(feldlen(i)) festgelegt. 

Die Zeilen 520 bis 640 dienen zur Auswahl, fUr welches 
DateiProgramm die Maske erstellt werden soll. Außerdem 
werden in Zelle 640 die Arrays für die nicht dimensio¬ 
nierten Variablen xl*, x2*, usw. gelöscht. 

Die Zeilen 660 und 670 sind dafür zuständig, ob eine 
bereits bestehende Maske eingelesen wird, oder nicht. 
Die Entscheidung hängt von Ihrer Eingabe ab. Falls 
eingelesen werden soll, dann werden durch die Zeilen 
690 bis 830 die Maskendaten eingelesen und die Anzahl 
der Felder ausgegeben. 

Danach wird durch die Zeilen 850 bis 880 abgefragt, ob 
nur die Plazierung oder ob andere Änderungen durchge¬ 
fUhrt werden sollen. Wird nur die Plazierung ausge¬ 
wählt, dann geht es bei 1580 weiter. 

Bei Änderungen wird durch die Zeilen 900 und 910 abge¬ 
fragt ob die Feldanzahl verändert werden soll. Falls 
ja, wird nach Zeile 1010 verzweigt. Falls nein, er¬ 
folgt durch die Routine ab 930 bis 980 die Eingabe der 
Fe 1dnamen. 

Die Zeilen 1010 bis 1090 sind fUr die Eingabe der 
Feldanzahl zuständig. Die erlaubten Grenzen werden 
UberprUft und ungültige Eingaben unterdrückt. 

Die Zeilen 1120 bis 1250 sind die Routine fUr die Ein¬ 
gabe der Feldnamen. Dabei wird mittels Schablonenaus¬ 
gabe durch PRINT USING gearbeitet. Zu lange Namen wer¬ 
den durch 1190 abgeschnitten. Zu kurze werden durch 
1200 auf 14 Zeichen aufgefUllt. In 1210 wird dem Feld¬ 
namen ein Doppelpunkt angehängt. 
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Durch Zeile 1220 erfolgt die formatierte Ausgabe. Die 
Feldnamen werden in das Array von fenamt(i) Übernom¬ 
men. Nach der Übernahme wird der Zahler hochgezählt 
(Zeile 1230), um dann durch Zeile 1240 die maximale 
Eingabe-Nummer zu prüfen. 

Nachdem die Feldnamen festliegen, werden von 1280 bis 
1430 die Längen fUr jeden Feldnamen-Eintrag eingege¬ 
ben. Diese Eingaben werden durch 1340 bis 1370 ge¬ 
prüft. Eine Laenge null wird ignoriert und entweder 
die vorbestimmte (Zeile 460), oder - falls vorhanden 
die bereits eingelesene Länge Übernommen. Die aktuelle 
Zelle wird durch einen Inversen Balken dargestellt 
(Zeile 1300). 

Zur optisch guten Darstellung wird durch Zeile 1390 
dann eine Punktreihe ausgegeben, die der Länge des 
Feldnamen-Eintrags entspricht. 

Die Zeile 1380 springt das Unterprogramm an, das die 
Anzahl der Zeichen1ängen "aufadd i ert". 

Die Variable "ben" in Zeile 1460 enthält die bisher 
benutzten Längen der Einträge, um dann in Zeile 1470 
dem Offsetwert (off) zugewiesen zu werden. 

Fehleingaben werden in den Programmen oft mehrfach 
verhindert, um kleine Fehler, die beim Abschreiben des 
Programmes geschehen sein könnten "auszubtlge1n". Dazu 
dient beispielsweise die Zeile 1480. 

In Zeile 1490 wird flir den jeweils augenblicklichen 
Stand der Eingaben die Anzahl der möglichen Datei-Ein¬ 
träge berechnet. Der echte Wert steht erst am Schluß 
der Längen-Eingaben fest. 

Die kontinuierliche Ausgabe soll laufend einen Über¬ 
blick bei den Eingaben ermöglichen. Diese Information 
wird durch Zeile 1500 ausgegeben. Die Variable "baen- 
ke" Ist erforderlich, weil beim CPC 6128 - beim RAM- 
Disk-Programm - insgesamt fünf Bänke (Blöcke) mit je 
16 KByte zur Verfügung stehen. 

Die Zeilen 1530 bis 1550 erweitern die Länge der Feld¬ 
namen um die Anzahl der zugehörigen Feldlängen. Die 
Feldnamen werden mit dem Punktzeichen erweitert. 
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Ab 1570 beginnt die Routine zur Plazierung der Feld¬ 
namen mit den zugehörigen Längen. 

Da die Positionen Uber die Variablen fUr die Horizon¬ 
talposition xpos (i) und die Vertika1position yposi 
(i) festliegen, erfolgt die Ausgabe sowohl Uber die 
Subroutine ab 2360 als auch durch Zeile 1C40. Dadurch 
erfolgt ein langsames, kurzes "Aufblinken" der Feld¬ 
einträge. 

Die Zeilen 1730 bis 1830 dienen zur Positionierung, 
zur Invertierung bei der Ausgabe und (Zeile 1740) zur 
evtl, vorzeitigen Beendigung der Plazierung. 

Die Zeilen 1770 bis 1810 verändern in Abhängigkeit von 
der Eingabe der Cursor-Steuertasten die Positionswer¬ 
te, bzw. fixieren bei Eingabe der COPY-Taste den ak¬ 
tuellen Feld-Eintrag. 

Die Zeilen 1860 und 1870 sind nur eine Abfrage, ob die 
Maske so wie sie bisher vorliegt Übernommen werden 
soll. 

Durch die Zeilen 1900 bis 1930 erfolgt eine Ausgabe 
der Daten fUr die mögliche Eintragsanzahl und den Off¬ 
set, also den Abstand (Anzahl der Zeichen) von Eintrag 
zu Eintrag. 

Je nachdem, wohin die Ausgabe der Maskendaten erfolgen 
soll, wird dann - durch 1950 bis 2120 - diese Ausgabe 
durchgefUhrt und das Programm beendet. 

Da im Programm mehrere Abfragen auf "Ja-/Nein"-Ent- 
Scheidungen hinaus 1 aufen, sind die Zeilen 2140 bis 
2160 die hierfür zuständige Unterroutine. Gleichzeitig 
werden alle Eingaben in Kleinbuchstaben gewandelt. An¬ 
dere Zeichen als "J" und "n" werden nicht zugelassen. 

Die Zeilen 2180 bis 2210 sind eine Unterroutine fUr 
evtl, auftretende Eingabefehler. 

Die Zeilen 2270 bis 2320 verhindern eine Positionie¬ 
rung außerhalb der zulässigen Grenzen. 

Die Zeilen 2360 sind mit fllr die Ausgabe bei der Posi¬ 
tionierung zuständig. 
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Die Zeilen 2430 bis 2460 enthalten die für die vier 
Dateiverwa1tungsprogramme erforderlichen Daten. In 
Zeile 2410 steht die Reihenfolge der Datastatements. 

Und nun das Programm selbst. 


7.2.1 Basic-Llstingi MASKGEN.BAS 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 


»*»»*»*»»»««»*»»»»*»«»*»»»*»»»»»»*»«»**»»»**««»##»****»* 

* MASKGEN.BAS » 

* » 


» Maskengenerator fuer die DateiverwaItungsprogramme: * 
• * 

* RAMDISKI.BAS « 

* RAMD1SK2.BAS « 

« RAND0MD1.BAS » 

* RAND0MD2.BAS » 


* Copyright 1986 by Lothar Miedel 1986 » 

*«•«*««•«»»»»***•«••**•••««•••««**«•***«**««**«•«««*«••* 

0PEN0UT"dummy":MEMORY H1MEM-1:CLOSEOUT:MODE 2 

Die Ausgabe-Fenster definieren 
WINDOW 110,2, 79,5, 22: WINDOW II, 2,60, 1, 1: WINDOW 12,35,78,1,1 
WINDOW #3,2,78,3,3:WINDOW 14,2,78,24,24:WINDOW 15,27,50,8,18 

Die Umrandungen (=Rahmen) zeichnen 
DRAW 0,380:DRAW 639,380:DRAW 639,349:DRAW 0,349:DRAW 0,35 
DRAW 639,35:DRAW 639,379:DRAW 639,0:DRAW 0,0 

Dimensionierungen 

DIM fenam*(18),feldlen(18),xposi(18>,yposi(18),blank*(18) 


Vordefinitionen 

inv*=CHR*(24):ml*="Maskengenerator (c) by L. Miedel" 
fl$="Fehler, bitte Taste (j oder n) druecken !" 
blank*=SPACE*(56):invb1ank$=STRING*(56,CHR*(143)) 

» 

FOR i = 1 TO 18 

fenam*(i)="Feld-Nr. "+STR*(i) 

IF LEN(fenam*(i))<14 THEN fenam»(1)=fenaml(i)+" ":GOTO 440 
fenaml(i)=fenam*(1) + ":" 
feldlend > = 20 
xposi(i)=1:yposi(i)=i 
NEXT i 
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500 PRINT #1,Inv* ml* inv* 

510 • 

520 'Abfrage fuer welches Programm 
530 FOR I = 1 TO 4 

540 READ xl*(l),x2»(i),x3*(i),x4*<i),x5(l>,x6(i) 

550 PRINT #5," "li" "xl*(1)SPRINT 15 
560 NEXT i 
570 ' 

580 PRINT #3,"Maskenerstellung - Fuer welches Datelverwaltungsprogramm? 
590 PRINT 14,"Bitte Ihre Eingabe (1 bis 4 !) 

600 x* =INKEY*:IF x*< "1" OR x* >"4" THEN 600 ELSE x=VAL(x*> 

610 masknam*=x2*(x):buffanf*=x3*(x):buffend*=x4*(x) 

620 platz=x5(x):baenke=x6(x) 

630 PRINT #3,"Gewaehltes Dateiprogramm: "xl*(x) 

640 ERASE xl*,x2*,x3*,x4*,x5,x6:CLS 15 
650 ' 

660 PRINT#4,"Sol 1 eine bestehende Maske geladen werden (j/n)"sGOSUB 2140 
670 IF x*="j" THEN 690 ELSE GOTO 1000 
680 ' 

690 PRINTK3,inv»"lch lese die vorhandene Maske!" inv* 

700 OPEN IN raasknam* 

710 INPUT #9,buffanf* 

720 INPUT #9,buffend* 

730 INPUT #9,dateielntraege 
740 INPUT #9,off 
750 INPUT #9,feIder 
760 FOR i = 1 TO felder 
770 1NPUT #9,fenam*( 1) 

780 INPUT *9,feldI ent 1) 

790 1NPUT #9,xposi(1) 

800 INPUT #9,yposi(1) 

810 NEXT 1 

820 CLOSEIN SPRINT #3,lnv*"Maske ge 1esen!"inv* 

830 PRINT »2,felder" Feld(er) pro Eintrag" 

840 ' 

850 CLS #4:PRINT #4,inv* "P" inv* "lazierung oder "lnv*"A"inv*"enderungen" 

860 x*=L0WER*(INKEY*):IF x*="" THEN 860 

870 IF x* = "p" OR xM"a" THEN 880 ELSE GOTO 860 

880 CLS #3:IF x»="p" THEN 1580 

890 ’ 

900 PRINT #4,"Aenderung der Feldanzahl (j/n)?" 

910 GOSUB 2140:IF x*="j" THEN 1010 
920 ' 

930 FOR i = 1 TO felder 

940 fenam*(1)=LEFT*(fenara*(1), 15) 

950 LOCATE #0,1,1 

960 PRINT USING "##\ \ \ \ "SIS*.) *!fenam*(l) 
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970 NEXT i 

980 PRINT#2,"Fe 1dnameneingabe":G0T0 1240 

990 ------- 

1000 'Eingabe der Feldanzahl 
1010 PRINT #3 
1020 LOCATE #1,1,1 

1030 PRINT #4,"Wieviele Felder soll ein Eintrag haben (max 18!) "1 
1040 INPUT #4,felder*:felder =VAL(fe l der*) 

1050 1F fei der <1 OR felder >18 THEN GOSUB 2190:GOTO 1020 
1060 PRINT #2,felder" Feld(er)" 

1070 PRINT #0,felder" Feld(er)" 

1080 GOSUB 2230:1F x$="n" THEN CLS #2:CLS #0:GOTO 1010 
1090 CLS #3 

1100 '...-.-.-. 

1110 'Eingabe der Feldnamen 
1120 PR 1NT#2,"Fe 1dnameneingabe 

1130 CLS #0:PRINT#3,"Maximale Laenge der Feldnamen: 14 Zeichen 

1140 i=1:LOCATE #0,1,1 

1150 PRINT USING "## \ \"11;CHR*(242); 

1160 PRINT #4,"Feld-Name "i":"i 
1170 1NPUT #4,fe1dnam#:CLS #4 
1180 IF feidnam*="" THEN 1220 

1190 IF LEN(feidnam*)>14 THEN fe1dnam*=LEFT*(fe1dnam*,14) 

1200 IF LEN(feldnam»)<14 THEN fe1dnam*=feIdnam*+" ":GOTO 1200 
1210 fenam*(i)=feldnam*+":" 

1220 LOCATE #0,l,i:PRINT USING "##\ \ \ \ "lii".) ";fenam*(i) 

1230 i = i + l 

1240 IF i>fe1 der THEN GOSUB 2230:IF x*="n" THEN 1140 ELSE 1280 
1250 GOTO 1150 

1260 '....-.. 

1270 'Eingabe der Anzahl von Feldzeichen 

1280 PRINT#3,"Maximale Zeichenanzahl pro Feld: 56 Zeichen! 

1290 1 = 1:ben=0:feh 1 er = 0:dateieintraege = platz»baenke:laenge = 0:GOSUB 1460 

1300 LOCATE #0,22,i:PR!NT invb1ank*:CLS #4 

1310 PRINT #4,LEFT*(fenam*(i),15);"Laenge (="ife1dlen<1)! 

1320 PRINT #4,"/ ENTER = uebemehmen)" 1 
1330 INPUT #4, laenge*:laenge = VAL(laenge*) 

1340 IF laenge=0 THEN laenge*="" 

1350 IF laenge*="" THEN IF feldlen(i)>0 THEN 1aenge=fe1d1en(i):GOTO 1370 
1360 feldien(i)=ABS(laenge) 

1370 IF feldlen(i) <1 OR feldlen(i) >56 THEN 1300 
1380 GOSUB 1460 

1390 LOCATE #0,22,i:FOR j = 1 TO laenge:PRINT #0,".";:NEXT j 
1400 FOR j =laenge TO 55:PRINT #0," ";:NEXT j 
1410 1=1+1 

1420 IF i>felder THEN GOSUB 2230: IF x* = "n" THEN 1290 ELSE 1530 
1430 GOTO 1300 

1440 '----- 
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1450 'addieren 

1460 ben=INT(ben+Iaenge) 

1470 off=ben 

1480 IF off< 1 THEN off = l 

1490 dateieintraege=INT(platz/off) 

1500 PRINT#2,"AnzahI der moeglichen Eintraege: "dateieintraege*baenke 
1510 RETURN 

1520 '---- 

1530 FOR I = 1 TO felder 

1540 fenam$(i)=LEFT*<fenam*<i>, 15) + STRINGK feldlend ■) 

1550 NEXT 1 

1560 '-= = = = = = = = = = = = = = = = = = = = = = = = = = === = = = = = = = = = = = = = = = = = = = = = =- 

1570 'Plazierung der Felder 

1580 CLS #0:PR I NT #2,"Plazierung”:PRI NT #4,"Ihre Eingaben bitte! 

1590 PRINT #3,inv*"Steuerung mit Cursortasten - Fixieren =COPY "inv*i 
1600 PRINT #3,inv*" e= Ende der P1azierung"invi 
1610 1 = 1:x = l :y=l 
1620 GOSUB 2360 

1630 '----- 

1640 LOCATE xpos1(i),yposi(i):PR I NT inv$ fenam$(i) invi 
1650 blankii i)=STRING$(LEN< fenamt(i))," "> 

1660 x = xposi(I):y=yposi (i) 

1670 ’ 

1680 x$ = L0WER*<INKEY$): IF x* = "" THEN 1680 
1690 IF xt=CHR$(13) THEN 1680 
1700 ' 

1710 LOCATE xposi(i),yposi(i):PRINT blank*(i) 

1720 ’ 

1730 IF x^"” THEN 1680 

1740 IF x*="e" THEN LOCATE xposi(i),yposi<i):PRINT fenam$(i):G0T0 1860 
1750 ' 

1760 au=ASC(x$)’ aw=ASClI-Wert 

1770 IF aw=224 THEN i=i+l:G0T0 2340 

1780 IF aw=240 THEN y=y-l 

1790 IF aw=241 THEN y=y+l 

1800 IF aw=242 THEN x=x-l 

1810 IF aw=243 THEN x=x+l 

1820 ' 

1830 GOSUB 2270:G0T0 1620 

1840 '------ 

1850 'Maske in Ordnung ? 

1860 GOSUB 2230 

1870 IF xt^n" THEN 1580 

1880 '---- 

1890 'Ausgabe der wichtigsten Daten 
1900 CLS #2:PR INT #3,"Plazierung beendet 
1910 CLS #0:PRINT:PRINT 

1920 PRINT"Anzahl der moeglichen Eintraege : "dateieintraege*baenke 
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1930 PRINT"Offset pro Eintrag: "off 

1940 ’---- 

1950 PRINT *4,"Soll die Feldmaske abgespeichert werden (j/n) ?" 

1960 x*=L0UER*<INKEY*):1F x* = "" THEN 1960 

1970 1F x*="n" THEN output =0:GOTO 1990 

1900 1F x*="j" THEN output=9:OPENOUT masknam* 

1990 PRINT »output,buffanf* 

2000 PRINT »output,buffend* 

2010 PRINT »output,dateielntraege»baenke 

2020 PRINT »output,off 

2030 PRINT »output,felder 

2040 FOR 1 = 1 TO felder 

2050 PRINT »output,fenara*(i) 

2060 PRINT »output,feldlen(l) 

2070 PRINT »output,xpos1(i) 

2080 PRINT «output,yposl(i) 

2090 NEXT 1 

2100 PRINT »output,"ende" 

2110 CLOSEOUT:MODE 2:PRlNT"ProgrammIauf beendet." 

2120 END 

2130 •.... 

2140 x*=L0UER*<INKEY*):IF x*="" THEN 2140 
2150 IF x*="j" OR x*="n" THEN RETURN 
2160 GOTO 2140 

2170 '----- 

2180 'Fehlermeldung 

2190 PRINT»1,Inv* fl* inv*:fehIer = l 

2200 GOSUB 2140:IF x*="" THEN 2190 ELSE PRINT »l,ml* 

2210 RETURN 

2220 '.-..... 

2230 PRINTJ4,"Eingaben korrekt (J/n) ?" 

2240 CLS »3 

2250 GOSUB 2140:RETURN 

2260 '...... 

2270 IF x<=0 THEN x=x+l 

2280 IF y<=0 THEN y=y + l 

2290 IF x+LEN(fenam*(1))>=79 THEN x=x-l 

2300 IF y>=19 THEN y=y-l 

2310 xposi(1)=x:ypos1(1)=y 

2320 RETURN 

2330 '---- 

2340 GOSUB 2360:IF i>felder THEN 1860 ELSE GOTO 1620 

2350 '-- 

2360 FOR j s 1 TO felder 

2370 LOCATE xposi(J),yposl(J) 

2380 PRINT fenam*(j) 

2390 NEXT j:RETURN 
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2410 'DATA progname,maskenname,buf f eranfang,bufferende,platz,baenke 
2420 ' 

2430 DATA RAMDISKI.BAS,RAMDI SKI.MSK,3000,9FFF,28672,1 
2440 DATA RAMDISK2.BAS,RAMDISK2.MSK,4000,7FFF,16384,5 
2450 DATA RAND0MD1.BAS,RAND0MD1.MSK,9000,97ff,183808,1 
2460 DATA RAND0MD2.BAS,RAND0MD2.MSK,9000,97ff,737280,1 


Ein kleines Problem kann mit dem Maskengenerator auf- 
treten, wenn bereits erstellte Masken eingelesen und 
verändert werden. Wurde die eingelesene Maske bereits 
plaziert und reicht nach der Änderung einer Feldlänge 
der Platz bis zum rechten Rand nicht mehr, dann wird 
dieses Feld ln der nächsten Zeile ausgegeben. 

Das wissen Sie aber! Dieser Fehler wird vom Programm 
nicht korrigiert, ln einem derartigen Falle sollten 
Sie die Zeile 2290 so abändern, daß am Ende THEN x = l 
steht. Wenn Sie dann neu plazieren und auch das ent¬ 
sprechende Feld bewegen, dann wird alles wieder rich- 
tiggeste11t! 
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7.3 Programm RAMD1SK1 

Das Programm besteht aus mehreren Teilen. Der Teil 
RAMDISK1.BAS ist der erste Teil zur Dateiverwa1tung 
mit RAM-Disk-Betrieb. Es ist sozusagen des Steuerteil. 
FUr den Programmlauf werden auch noch der Maschinen¬ 
spracheteil, sowie die Maskendaten benötigt. 

Das Programm läuft auf allen CPCs, es ist aber ganz 
speziell an die vorhandenen Voraussetzungen des CPC 
464 bzw. 664 angepaßt. 

Aus verschiedenen Gründen, die schon erwähnt wurden, 
ist die oberste Grenze, die vom Programm benutzt wer¬ 
den darf &9FFF. Da aber ein möglichst großer Bereich 
für Daten zuständig sein soll, wurde das Programm sehr 
stark komprimiert und der RAM-Bereich fUr die Maschi¬ 
nenroutinen zwischen &2E3B und &2FFF reserviert. 

Damit das Laden und Speichern der Binärfiles klappt, 
muß der Buffer hierfür vorhanden sein. Dies bewerk¬ 
stelligt die Zeile 110. Gleichzeitig wird in dieser 
Zeile der Basiswert fllr die erste Eintragsnummer be¬ 
stimmt und die Variable inv«, die zur Umkehrdarstel¬ 
lung von Zeichen dient, definiert. 

Die Fensterdefinition und die Festlegung des Darstel¬ 
lungs-Rahmens geschieht durch die Zeilen 130 bis 170. 

In Zeile 190 geschieht das Laden des Maschinenpro¬ 
gramms und durch die von 210 angesprungene Unterrou¬ 
tine werden die Maskendaten eingelesen. 

In den Zeilen 230 bis 280 erfolgen die Vordefinitionen 
der wichtigsten Variablen. So werden dort alle - flir 
das Maschinenprogramm wichtigen - Adressen und Werte 
festgelegt. Zusätzliche Werte werden in 300 berechnet. 
Ramlow und ramhigh sind die Low- bzw. Highbyte-Werte 
fUr den Anfang des Datenbereiches eines Eintrages, der 
beim Programmstart natürlich auf den Bufferanfang ge¬ 
stellt wird (Zeile 320 und 330). 

In den Zeilen 320 bis 340 werden alle Werte des Buf¬ 
fers in den Speicher gebracht. 

Die Zeile 350 Ubergibt an die Maschinenroute "FILLER" 
das Zeichen, mit dem der definierte Bereich, der dem 
Datenbereich entspricht, "gefüllt" wird. 
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Unmittelbar danach erfolgt die Ausführung dieses MPG- 
Te1 1 es. 

Da die Maskendaten schon gelesen wurden, erfolgt dann 
ein Sprung zu Zelle 500. In dieser Zeile wird die mit 
dem Maskengenerator erstellte Maske ausgegeben. Dann 
beginnt das eigentliche Verwaltungsprogramm. 

In 530 wird der Wert von "basis" als niedrigste Ein¬ 
tragsnummer (enr) Übernommen und durch den Sprung nach 
780 sofort geprüft, ob dieser Wert gültig ist. Dies 
geschieht deshalb, falls durch irgendeinen Grund (z.B. 
Fehler im Maskengenerator) falsche Daten eingelesen 
wurden. 

Von Zeile 550 bis 600 ist der Programmteil, der beim 
Ausfuhren des GOTO-Befeh 1 es die Eingabe und die Prü¬ 
fung der Eingaben Übernimmt. 

Falls die Eingaben lt. der Prllf routinen korrekt waren, 
stehen bei Ausführung der Zeilen ab 620 gültige Daten 
auf dem Schirm und dieses wird nun mitgeteilt. Sind 
die Datei-Daten noch nicht eingelesen, dann sind die 
Feldinhalte lauter "Punkte". 

Von 650 bis 790 ist die Routine, die Ihre Eingabe er¬ 
wartet und gegebenenfalls gleich fehlerhafte Eintrags¬ 
nummern verhindert. Das bedeutet, zu niedrige Eingaben 
werden auf den niedrigsten (Zelle 780) und zu hohe auf 
den höchsten (Zeile 790) Wert gesetzt. 

Nun müssen die Eintragsnummern innerhalb der erlaubten 
Grenzen liegen und deshalb können die Werte fUr den 
Bufferbeginn und fUr den Offset (Zeilen 820 und 830) 
berechnet werden. 

Ähnliches gilt dann fUr die Zeile und Anzahl der Zei¬ 
chen des Feldeintrages (Zeile 870), sowie fUr die 
höchste Adresse (ramhigh und ramlow in Zelle 880). 

Der weitere Vorgang läuft nun in einer kleinen Schlei¬ 
fe ab, die von der Feldanzahl abhängig ist (Zeile 
850), wobei das Lesen aus dem Daten-Speieher und das 
Schreiben auf den Bildschirm durch die Routine ramwr 
(Schreiben aus dem RAM) bewerkstelligt wird. 

Nun wird das Editier-Fenster - in diesen Programmen 
ist es immer der Stream #7 - definiert und die Grenzen 
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(1240) festgelegt. Durch die Zelle 1250 werden diese 
Werte ln die hierfür vorgesehenen Speicherstellen des 
Maschinenprogrammes geladen. 

In 900 erfolgt ein GOSUB-Sprung nach 1180, wo ver¬ 
schiedene Parameter an die Maschinenroutine Ubergeben 
werden. 

Sind alle Felder des Eintrages ausgegeben, dann wird 
wieder nach Zeile 620 gesprungen (Zeile 900). 

Je nach Eingabe - auf die in Zelle 650 gewartet wird - 
fährt das Programm fort. 

Wurde "e" eingegeben, dann wird nochmals abgefragt, ob 
Sie den Programmlauf auch wirklich beenden wollen 
(Zeile 1310-1320). 

Bei "f" wird die Suchroutine aufgerufen, deren Basic- 
Teil die Zeilen 1060 bis 1160 umfaßt. 

Bei ”g" erfolgt die Abarbeitung der Teilroutine, die 
fUr GOTO zuständig ist: Zeilen 550 bis 600. 

Bei "1" fUr laden, erfolgt das Einlesen des Binärfiles 
mit den Daten (Zelle 1280 und 1290), bei "s" das Ab¬ 
speichern des Datenfiles (Zelle 1290 und 1300). 

Wurde die COPY-Taste gedruckt, dann haben Sie die Ein¬ 
gabe von Daten gewählt und die Routine ab Zeile 920 
wird abgearbeitet. Hier läuft der umgekehrte Vorgang 
des Auslesens aus dem Speicher ab. Da im Maschinenpro¬ 
gramm die COPY-Taste abgefragt wird und bei gedruckter 
COPY-Taste Uber eine "Merker"-Speieherste11e dies sig¬ 
nalisiert wird, kann der Basic-Teil es erkennen und 
darauf reagieren. 

Nach jeder Feldeingabe ('Änderung) wird - durch Zeile 
990 mit dem Befehl GOSUB 1180 - die auch bei der Aus¬ 
gaberoutine verwendete Unterroutine angesprungen. Die 
Eingaben bei Änderungen werden "feldmäßig" behandelt. 

Die Maschinenroutine fUr die Eingaben wird nach jeder 
Feldeingabe verlassen und in Zeile 1210 kann erkannt 
werden, ob während der Eingaben die COPY-Taste ge¬ 
druckt wurde. 
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In 990 kommt die Gegenroutine des Lesens vom Bild¬ 
schirm zum Arbeiten: RAMRD - Lesen vom Bildschirm und 
Schreiben in die RAM-Speieherste11en. 

Die Zeilen 1010 bis 1040 dienen der Fehlerbehandlung. 

Die Zellen 1060 bis 1160 sind fUr die Suche nach, also 
fUr das Auf finden von, einzugebenden Zeichenfolgen zu- 
ständig. 

Diese Zeilen will ich noch etwas genauer erläutern. 

Die Zeile 1060 durfte klar sein, da geschehen die In¬ 
formations-Ausgaben. 

Die Zeile 1070 Übernimmt die Eingabe in die Variable 
such$ und prüft, ob die Länge der Eingabe null ist. 
Trifft dies zu, dann wird als wirklicher Suchstring 
die alte Zeichenfolge (also eine vorher schon einmal 
eingegebene) benutzt. 

Die Zeile 1080 stellt die Länge der Zeichenfolge fest 
und reduziert - falls es erforderlich sein sollte - 
auf 56 Zeichen. 

Die Zeile 1090 schreibt die ASC1 I-Zeichen des Suchwor¬ 
tes fUr die Maschinenroutine in die extra dafür reser¬ 
vierten Spe1 eherste1 1en. 

Ab Zeile 1100 wird auf den nächsten Dateieintrag posi¬ 
tioniert und in Zeile 1150 dann die Maschinenroutine 
fUr den Suchvorgang aufgerufen. 

Da die Maschinenroutine bei erfolgreicher Suche einen 
Wert größer null in den Speicherstellen, die fundpos 
und fundpos +1 zugeordnet sind, Ubergibt, kann der Be¬ 
ginn der Übereinstimmung - nur bei einem komplett ge¬ 
fundenen "Wort" in die Variable fs Übernommen werden 
(Zeile 1150). 

In 1160 wird dann daraus der auszugebende Eintrag be¬ 
rechnet und durch den Sprung nach 780 ausgegeben. 

Nun folgt das Basiclisting dieses Programmes. Die Hex¬ 
lader fUr die Maschinenroutinen finden Sie nach dem 
Basic-Programm. 
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7.3.1 Baslc-Llstlng: RAMDISK1.BAS 
100 'RAMD1SKI.BAS 

110 MODE 2:MEM0RY &2E3A:0PEN0UT"dummy":CL0SE0UT:basis = l: inv*=CHR*(24) 

120 ' 

130 WINDOW #0,2,79,5,22:WIND0W II,2,79,1,1:W1NDOW 12,61,78,1,1 
140 WINDOW #3,2,78,3,3:WINDOW #4,60,78,24,24: WINDOW #5,2,50,24,24 
150 DRAW 0,380:DRAW 639,380:DRAW 639,349:DRAW 0,349:DRAW 0,35 
160 DRAW 639,35:DRAW 639,379:DRAW 639,0:DRAW 0,0 
170 ' 

180 PRlNT#l,inv* "DatelveruaItung mit RAM-DlSK"inv* 

190 PRINT#3,"Lade das Maschinenprogramm":LOAD"ramdiskl.mpg",&2E3B 
200 PRINTI3,"Bitte Datendiskette elnlegen und eine Taste druecken":CALL &BB06 
210 GOSUB 370:•Maskendaten holen 
220 ' 

230 zell em=8<2FC9: mspa 1 te=i2FCA: manzah 1 =I<2FCB:stream=i2FCC 

240 1 inksm=&2FCD: recht sm=i<2FCE: memhi g=4i2FF4: fchar=fc2FF6 

250 fil ler=&2FD2:zelchen=t2E:ramdl=fc2FD0:ctaste=S<2FCF 

260 ramrd={(2EF6: wed=&2F4B: ramur =8<2F2C: f undpos=fc2EB2: suchuort=fc2EBA 

270 suche = 8<2E3B : ram I en=&2EAC: laenge=&2EAE:aktstart=S<2EB0 

280 zeile=l:spalte=l:anzahl=56:str=7 

290 ' 

300 ramlow=VAL("«<"+MID*(buffanf»,3,2>):ramhlgh=VAL<"&"+MID»(buffanf*, 1,2)) 

310 ' 

320 POKE memhig+1,VAL("fc"+MID*(buffend*,1,2)) 

330 POKE memhig,VAL<"fc"+MID$(buffend*,3,2)> 

340 POKE ramdi,ram1ow:P0KE ramdi+1,ramhigh 
350 POKE fchar,Zeichen:CALL filler:GOTO 500 
360 ’ 

370 PRINT#3,"Lese die Maskendaten":OPENIN"ramdiskl.msk" 

380 INPUT #9,buffanf»,buffend»,eintraege,off,felder 
390 buffanf*="3123" 

400 buffanf = VAL("&" + buffanf») :buf fend=VAL("8<" + buf fend*) :dlff = buf fend-buffanf 
410 IF dlff <0 THEN diff=diff+2~16 

420 DIM fenam*(felder), fe1d1 entfe1 der),xposi(felder),yposl(felder) 

430 DIM fe1dinh*(felder) 

440 FOR i = 1 TO felder 

450 INPUT #9, fenam»(i),feldlen(i),xposi(i>,yposi(1) 

460 benutzt=benutzt+feldlen(1) 

470 NEXT i 

480 CL0SEIN:PRINT#3,lnv* "Maske gelesen - Ausgabe der Maske"inv*:RETURN 
490 ’ 

500 FOR j = 1 TO fei der:L0CATE xposi (j),yposi(j):PRINT fenam»(j):NEXT j 
510 ’ 

520 PRINT #3,"Auf geht's !":L0CATE #1,47,1:PRINT#1,"Dateieintraege: "eintraeg 
530 enr=basis:G0T0 780 
540 ' 

550 PRINT #3,inv*"G0T0 ... "lnv*:INPUT 15,"Eintragsnummer" :enr* 
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560 IF LENIenr*)<1 THEN 550 
570 IF ASC(LEFT*(enr*,1))<48 THEN 550 
580 IF ASC(LEFT*(enr*,1))>57 THEN 550 
590 enr*=LEFT*(enr*,6) 

600 enr=VAL(enr»):GOTO 780 
610 1 

620 CLS #3:PRINT #3,inv* "Daten gueltig, bitte Ihre Eingabe!"inv» 

630 CLS #5:PRINT *5,"Eintragsnumraer: "enr:CLS #4 
640 ' 

650 x*=LOWER*(INKEY*):IF x* = "" THEN 650 

660 IF x*="e" THEN 1310 

670 IF x*="f" THEN 1060 

680 IF x*="g" THEN 550 

690 IF x*="l" THEN 1270 

700 IF x * ~ " s " THEN 1290 

710 IF ASC(x»)=224 THEN 920 

720 IF ASC(x»)<240 THEN 650 

730 IF ASC(x»)>243 THEN 650 

740 IF ASC(x*)=243 THEN enr=enr+l 

750 IF ASC(x» ) =242 THEN enr = enr-l 

760 IF ASC(x*)=240 THEN enr=enr+10 

770 IF ASC(x*)=241 THEN enr=enr-10 

780 IF enr<basis THEN GOSUB 1010:enr = basis 

790 IF enr>=eintraege+basis THEN GOSUB 1010:enr=eintraege+basls-1 
800 ' 

810 CLS #3:PRINT »3,inv*"Moment bitte!"invi 
820 buffoff=(enr-basIs)»off 

830 begad = VAL ( "8<" + buf f anf *)+buf f of f : 1 Datenbuffer festlegen 
840 ' 

850 POKE stream,str:zz=0:FOR i = 1 TO felder 
860 beginn=begad*zz:zz=zz+feldten(i) 

870 zeile=yposi(i):anzahl=feldlen(i)-l 

880 ramhigh=INTfbeginn/256):ramIow=beginn-ramhigh*256 

890 WINDOW #7,xposi(i)+16,xposi(i)+feldlen(i)+16,zelle+4,zeile+4:CLS »7 

900 GOSUB 1180:CALL ramwr:NEXT i:G0T0 620 

910 ' 

920 PRINT *3,"Bitte Ihre Eingaben!":PR I NT 15,inv»"Aendern"inv*:PRINT #4,enr 
930 POKE stream,str : zz=0 
940 FOR i = 1 TO felder 

950 beginn = begad + zz:zz = zz + feldlen(i):zelle= : yposi(i):anzahl=feldlen(i)-l 

960 ramhigh=INT(beginn/256):ramlow=beginn-ramhigh»256 

970 WINDOW #7,xposi(i)tl6,xposi(i)+feldlen(i)+17,zeile+4,zeile+4 

980 GOSUB 1240:CALL WED 

990 anzahl=feldlen(i):GOSUB 1180:CALL ramrd:NEXT i:PRINT#5:GOTO 620 
1000 ' 

1010 PRINT #3,inv* "Fehler! "inv*; 

1020 PRINT *5,inv*" Bitte Taste ’j' oder ’n’ druecken!"inv*:PRINT CHR*(7); 
1030 x*=L0WER*(INKEY*):IF x*="" THEN 1030 
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1040 1F x$<> "j" AND x*<> "n" THEN 1030 ELSE CLS 15:RETURN 
1050 ' 

1060 PRINT #3,inv$"Suchen: "inv*" Bitte geben Sie die Zeichenfolge ein! * 
1070 INPUT #5, sucht: IF LEN(such*>=0 THEN swMswl ELSE sv*=such* 

1080 wlaenge=LEN(sw*) : IF wlaenge>56 THEN sw*=LEFT»(sv$,56):G0T0 1080 

1090 FOR 1 =1 TO wlaenge:POKE suchwort+1-1,ASC(MID*(swf,1,1)):NEXT 1 

1100 stand=buffanf+enr»off:sthi=lNT(stand/256):st 1o = stand-sthi»256 

1110 rest=buffend-stand:IF rest <0 THEN rest=rest+2*16 

1120 ram 1 hl = INTCrest/256):ram11o=rest-raralhl*256 

1130 POKE laenge,wlaenge:POKE aktstart,stlo:P0KE aktstart+1,sthl 

1140 POKE ram1en,ram11o:POKE ram1en+1,ramlhi 

1150 CALL suche:fs=PEEK(fundpos)+PEEK(fundpos+1)»256 

1160 enr=INT((fs-buffanf)/off)+basls:G0T0 780 

1170 ' 

1180 zei1e=1:spa1te=l:P0KE zellem,zelle 
1190 POKE manzahI,anzahl:POKE mspa1te,spa1te 
1200 POKE ramdl,ramlow:POKE ramdl+1,ramhlgh 
1210 IF PEEK(ctaste)=224 THEN l=felder 
1220 POKE ctaste,0:RETURN 
1230 ’ 

1240 1inks = 16:rechts = feIdIen(1) 

1250 POKE stream,str:P0KE Iinksm,1:P0KE rechts«,rechtssRETURN 
1260 ’ 

1270 PRINTI3,inv*"Datenfile laden"inv*:GOSUB 1020 

1280 IF x*="j" THEN L0AD"ramdiskl.dat",buffanf:G0T0 780 ELSE GOTO 780 
1290 PRINTI3,inv$"Datenfile speichern"inv$:G0SUB 1020 

1300 IF x$="j" THEN SAVE"ramdlskl.dat",b,buffanf,dlff:GOTO 780 ELSE GOTO 780 
1310 PRINTH3,inv»"Programm beenden ?"lnv*:G0SUB 1020 
1320 IF x*="n" THEN GOTO 780 ELSE MODE 2:END 


Damit Sie die einzelnen Masch1nen-Rout1nen nicht nur 
ftlr die Programme dieses Buches einsetzen können, wur¬ 
den sie getrennt assembllert und deshalb stehen Ihnen 
die Lade-Programme auch als Module zur Verfügung. 

Zunächst nun die Hexlader der einzelnen Module und 
dann anschließend die kommentierten Assemb1 er-Lis- 
tlngs. Ftir das Programm sollten Sie den Hexlader 
KPLRD1.HEX abschreiben und laufen lassen. Im Anschluß 
an den Programmlauf steht dann der komplette Maschi¬ 
nensprache-Teil auf der Diskette. Die einzelnen kom¬ 
mentierten Assemb1 er-Lis11ngs brauchen Sie gedanklich 
nur zusammenzufugen, dann haben Sie auch das kommen¬ 
tierte Assemb 1 er1is11ng fUr die komplette Maschinen¬ 
sprache-Routine. 
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7.3.2 Hexlader: SUCHER.HEX 

100 'SUCHER.HEX 
110 MEMORY &2E3A 
120 ' 

130 a = 11835:e= 11949:zb=1000 

140 FOR 1 =a TO e :READ d*:lF LEFT* (d*, 1 > <>"8." THEN 170 
150 IF psOVALld*) THEN PRINT"Fehler Zelle "zb:END 
160 ps=0:d*="":IF i=e THEN 220 ELSE 1 = 1-1:zb = zb+l:G0T0 200 
170 d* = "S." + d* 

180 POKE 1,VALfd*):ps=ps+VAL(d») 

190 PRINT VAL(d*> 

200 IF 1 < e THEN NEXT 1 
210 ' 

220 SAVE"sucher.bin",b,&2E3B, 471 
230 ' 

1000 DATA ED.4B, AC,2E, 11, BA, 2E. 2A, B0, 2E, 22, B4,2E, 3A, AE, 2E, J.062D 

1001 DATA 32, AF, 2E, 1A, ED, Bl, C2, A5,2E, 2B, 22, B0, 2E, 22, B8, 2E, 4068F 

1002 DATA 22, B4,2E, 3A, AE, 2E, 32, AF,2E,1A,ED,Bl,C2,A5,2E,D5,&074B 

1003 DATA E5,2A,B4,2E, 23, E5, Dl, El, E5, ED,52,El,Dl,22,B4,2E,&0985 

1004 DATA CA,88,2E,2A, B0, 2E, 23, 22, B0,2E,C3,3B,2E,22,B6,2E,&05DD 

1005 DATA 3A, AF, 2E, 3D, 32, AF, 2E, FE, 00, CA, 9B, 2E, 13, C3, 64,2E, 8.065C 

1006 DATA ED,5B,AE,2E,ED,52,22,B2,2E,C9,21,00,00,22,B2,2E,&0651 

1007 DATA C9,00,A00C9 

Falls Sie das Suchprogramm also getrennt benötigen, 
brauchen Sie nur das vorstehende Ladeprogramm abzu¬ 
tippen. Die erforderlichen Adressen fllr den Aufruf 
bzw. fUr von Basic aus zu Übergebenden Werte stehen 
im Bas 1c-Programm RAMD1SK1.BAS und sind auch bei den 
AssembI er-L1s11ngs zu finden. 

Falls Sie den "Sucher" aber ln einem anderen Speicher¬ 
bereich benötigen, bei der Beschreibung RAMDISK2 fin¬ 
den Sie Ihn noch fUr die Adresse ab S<8000. 


7.3.3 Hexlader: RD.HEX 

100 REM RD.HEX 
110 MEMORY S.2EF5 
120 ' 

130 a= 12022:e= 12233:zb=1000 

140 FOR 1 =a TO e :READ d$:IF LEFT*(d*, 1)<>"«<" THEN 170 
150 IF psOVALtd») THEN PRINT"Fehler Zelle "zb:END 
160 ps=0:d*="":IF i=e THEN 220 ELSE 1=1-1:zb=zb+l:G0T0 200 
170 d*="fc"+d* 

180 POKE 1, VAL(d*):ps=ps+VAL(d*) 
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190 PRINT VAL(d$) 

200 IF i < e THEN NEXT 1 
210 ' 

220 SAVE"rd.bin",b, &2EF6,8iD2 
230 ' 

1001 DATA 3A,CC,2F,CD,B4,BB,3A,C9,2F,F5,CD,72,BB,Fl,32,C9,&097E 

1002 Data 2F,3A,CA,2F,F5,CD,6F,BB,F1,3C,32,CA,2F,2A,CB,2F,«<07CA 

1003 DATA 7D,FE,00,C8,2B,22,CB,2F,CD,60,BB,2A,D0,2F,77,23,40735 

1004 DATA 22,D0,2F,C3,07,2F,3A,CC,2F,CD,B4,BB,2A,D0,2F,7E,&0732 

1005 DATA 23,22,D0,2F,CD,5D,BB,2A,CB,2F,7D,FE,00,CB,2B,22,&06DD 

1006 DATA CB, 2F, C3,32, 2F, 3A, CC, 2F, CD, B4, BB, CD, 78, BB, CD, 75, &08D1 

1007 DATA BB,CD,8A,BB,CD,06,BB,4F,CD,8D,BB,79,FE,0D,C8,FE,&0A09 

1008 DATA E0, CA, C5, 2F, FE, F2, CA, 91,2F, FE, F3, CA, A7, 2F, FE, 7F, &0B26 

1009 DATA F2,51,2F,FE,20,FA,51,2F,CD,5A,BB,CD,78,BB,3A,CE,&08F4 

1010 DATA 2F, 3C, 57, 7C, BA, CA, BD, 2F, C3, 51,2F, 3E, 08, 4F, CD, 78,&06CB 

1011 DATA BB,3A,CD,2F,57,7C,BA,CA,51,2F,79,CD,5A,BB,C3,51,i0837 

1012 DATA 2F, 3E, 09, 4F, CD, 78, BB, 3A, CE, 2F, 57, 7C, BA, CA, 51,2F, &06D3 

1013 DATA 79,CD,5A,BB,C3,51,2F,3E,08,CD,5A,BB,C3,51,2F,32,&073B 

1014 DATA CF,2F,C9,fc01C7 


Auch der Hexlader fUr die RAMDISK kann eigenständig 
benutzt werden. Sinngemäß gilt das beim SUCHER.HEX Ge- 
schriebene. 


7.3.4 Hexlader! FILLER.HEX 

100 REM FILLER.HEX 
110 MEMORY &2FCF 
120 ' 

130 a= 12240:e= 12280:zb=1000 

140 FOR i =a TO e:READ d*:IF LEFT* (d*, 1) <>"*■" THEN 170 
150 IF psOVALtd*) THEN PRINT"Fehler Zeile "zb:END 
160 ps=0:d$ = n ": IF i=e THEN 210 ELSE i = i-1 :zb = zb+l :G0T0 200 
170 d$="&"+d* 

180 POKE i,VAL(d»):ps=ps+VAL(dt) 

190 PRINT VAL(dt) 

200 IF i < e THEN NEXT i 
210 SAVE"F1LLER. BIN", B, &2FD0, !<27 
220 ' 

1001 DATA 00, 00,2A, D0,2F, 2B, E5, CI, 2A, F4, 2F, E5, ED, 42, E5, CI, &0801 

1002 DATA El, 3A, F6,2F, 77, 2B, 0B, 78, FE, 00, C2, El, 2F, 79, FE, 00,&07AC 

1003 DATA C8,C3,El,2F,00,00,2E,00,&02C9 
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Wie bei den beiden vorangegangenen Ladern kann auch 
mit diesem ein eigenständiger Maschinensprachetei1 er¬ 
zeugt werden. 

Nun zu dem Lade-Programm, das den kompletten Maschi¬ 
nenspracheteil erzeugt, den Sie für das Programm 
RAMD1SK1 brauchen: 


7.3.5 Hexlader: RAMDISKI.HEX 

100 REM RAMDISKI.HEX 
110 MEMORY &2E3A 
120 ' 

130 a = 11835:e= 12280:zb=1000 

140 FOR 1 =a TO e:READ d$:IF LEFT»(dt,1)<>"fc" THEN 170 
150 1F psOVALl d*) THEN PRINT"Fehler Zeile "zb:END 
160 ps=0:d*="":IF l=e THEN 220 ELSE i=i-1:zb=zb+l:GOTO 200 
170 d* = "8<" + d$ 

180 POKE i,VAL(d$):ps=ps+VAL(d») 

190 PRINT VAL(d$) 

200 1F 1 < e THEN NEXT 1 
210 ' 

220 SAVE"ramdi skl. mpg", b, 8.2E3B, MBC 
230 ’ 

1000 DATA ED,4B,AC,2E,11,BA,2E,2A,B0,2E,22,B4,2E,3A,AE,2E,&062D 

1001 DATA 32,AF,2E,1A,ED,Bl,C2,A5,2E,2B,22,B0,2E,22,B8,2E,&068F 

1002 DATA 22,B4,2E,3A,AE,2E,32,AF,2E,1A,ED,Bl,C2,A5,2E,D5,&074B 

1003 DATA E5,2A,B4,2E,23,E5,Dl,El,E5,ED,52,El,Dl,22,B4,2E,&0985 

1004 DATA CA,88,2E,2A,B0, 2E,23,22,B0,2E,C3,3B,2E,22,B6,2E,&05DD 

1005 DATA 3A, AF, 2E, 3D, 32, AF, 2E, FE, 00, CA,9B,2E,13,C3,64,2E,&065C 

1006 DATA ED.5B,AE,2E,ED,52,22,B2,2E,C9,21,00,00,22,B2,2E,&0651 

1007 DATA C9, 00,00, 00, 00,00,00, 00,00,00,00,00,00,00,00,00,&00C9 

1008 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,&0000 

1009 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,&0000 

1010 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,&0000 

1011 DATA 00,00,00, 00, 00, 00, 00, 00, 00,00,00,3A,CC,2F,CD,B4,&02B6 

1012 DATA BB,3A,C9,2F,F5,CD,72,B8,Fl,32,C9,2F,3A,CA,2F,F5,&091F 

1013 DATA CD,6F,BB,Fl,3C,32,CA,2F,2A,CB,2F,7D,FE,00,C8,2B,&07E1 

1014 DATA 22,CB,2F,CD,60,BB,2A,D0,2F,77,23,22,D0,2F,C3,07,&06B2 

1015 DATA 2F, 3A, CC, 2F, CD, B4, BB, 2A, D0,2F, 7E, 23, 22, D0, 2F, CD, &0758 

1016 DATA 5D, BB, 2A, CB, 2F, 7D, FE, 00, C8, 2B, 22, CB, 2F, C3, 32, 2F, 8i06EA 

1017 DATA 3A, CC, 2F, CD, B4, BB, CD, 78, BB, CD, 75, BB, CD, 8A, BB, CD, !<0A4D 

1018 DATA 06,BB,4F,CD,8D,BB,79,FE,0D,C8,FE,E0,CA,C5,2F,FE,&0A0B 

1019 DATA F2,CA,91,2F,FE,F3,CA,A7,2F,FE,7F,F2,51,2F,FE,20,&0A1A 

1020 DATA FA,51,2F,CD,5A,BB,CD,78,BB,3A,CE,2F,3C,57,7C,BA,&085C 

1021 DATA CA,BD, 2F, C3, 51,2F,3E,08,4F,CD,78,BB,3A,CD,2F,57,&071B 

1022 DATA 7C,BA,CA,51,2F,79,CD,5A,BB,C3,51,2F,3E,09,4F,CD,&0781 
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1023 DATA 78, BB, 3A, CE, 2F, 57, 7C, BA, CA, 51,2F, 79, CD, 5A, BB, C3, 8<085F 

1024 DATA 51,2F,3E,08,CD,5A,BB,C3,51,2F,32,CF,2F,C9,01,01,i05E6 

1025 DATA 01,07, 05, 06,00, 00, 00, 2A, D0, 2F, 2B, E5, CI, 2A, F4,2F, 8(045A 

1026 DATA E5,ED,42,E5,CI,El,3A,F6,2F,77,2B,0B,78,FE,00,C2,808DF 

1027 DATA El, 2F, 79, FE, 00, C8, C3, El, 2F, 00, 00, 2E, 00,8(0550 


Da alle Maschinenroutinen so liegen, daß ab 8(3000 die 
Daten stehen können, sind die mit den Hexladern zu 
erzeugenden Maschinenspracheteile vor allem ftlr den 
CPC 464 und 664 gedacht. FUr den CPC 6128 finden Sie 
in diesem Buch auch die Hexlader die entsprechende 
Binärfiles ab der Adresse 8(8000 erzeugen. 

Nun folgen noch die kommentierten Assemb1 er Iis11ngs zu 
diesen Ladeprogrammen. 

7.3.6 Assembler-Listlng; SUCHER-EDI 


» SUCHER.EDI 

* (c) 1986 by Lothar Miedel 

«- 

» Dieses Maschinen-Programm sucht Woerter 

• (=ASCII-FoI gen) im Speicher des CPC 


;Erk Iaerungen 


;AKSTART= 
;ALTMERK= 
;FUNDPOS 1 
# 

1EFIND = 
J 

1 ERFOLG = 

;erstbyt= 

J 

;ERSTPR = 
;KOMPL? = 
ILAENGE = 
1N0ERF0L= 
1PRUEF = 
!RAHLEN = 
;RESTLEN= 
!SUCHER * 
;SUCHW = 


aktuelle Startadresse fuer die Suche 

Merker fuer alten Suchstart 

Adresse des ersten Buchstabens bei 

erfolgreicher Suche (Begriff gefunden) 

Adresse der ersten Uebereinstimmung 

bei jedem Suchbeginn 

Wort komplett gefunden 

Adresse der ersten Uebereinstimmung 

bei erfolgreicher Suche 

Suchbeginn fuer ersten Buchstaben 

Pruefung ob Wort komplett gefunden 

Zelchenlaenge des Suchbegriffes 

Start der Subroutine wenn Suche erfolglos 

Pruefroutine ob Wort komplett 

Laenge des zu durchsuchenden RAM-Bereiches 

Anzahl der noch fehlenden Uebereinstimmungen 

Einsprungadresse von Basic aus 

Adresse an der das Suchwort beginnt 
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SUCH2 

= 

Start der 

Suche nach erster Uebereinstimmung 

START 

= 

wirk 1Icher 

Beginn 

des Programmes 






org &2e3b 



2E3B 

ED 

4B 

AC 2E 

START 

Id 

bc, (RAMLEN) 

[Laenge Suchbereich 

2E3F 

11 

BA 

2E 


Id 

de.SUCHW 

[Adresse des 1. Buchstaben 

2E42 

2A 

B0 

2E 


Id 

hl , (AKSTART) 

[Startadresse der Suche 

2E45 

22 

B4 

2E 


Id 

(ALTMERK),hl 

[Merker alter Suchbeginn 

2E48 

3A 

AE 

2E 

ERSTPR 

ld 

a, (LAENGE) 

[Laenge des Wortes 

2E4B 

32 

AF 

2E 


Id 

(RESTLEN),a 

[in RESTLEN schreiben 

2E4E 

1A 




Id 

a,(de) 

{ersten Buchstaben laden 

2E4F 

ED 

Bl 



cpl r 


[und suchen 

2E51 

C2 

A5 

2E 


JP 

nz,NOERFOL 

[nichts gefunden 

2E54 

2B 




dec 

hl 

iStartadresse erniedrigen 

2E55 

22 

B0 

2E 


Id 

(AKSTART),hl 

[aktue 11er Start 

2E58 

22 

B8 

2E 


Id 

< ERSTBYT),h1 

[Adresse erstes Bytes 

2E5B 

22 

B4 

2E 


Id 

(ALTMERK),hl 

[auch merken 

2E5E 

3A 

AE 

2E 


Id 

a,(LAENGE) 

[Laenge des Uortes 

2E61 

32 

AF 

2E 


ld 

(RESTLEN),a 

[in RESTLEN merken 

2E64 

1A 



SUCH2 

ld 

a,(de) 

[Suchzeichen laden 

2E65 

ED 

Bl 



cpi r 


isuchen 

2E67 

C2 

A5 

2E 


JP 

nz,NOERFOL 

[nicht gefunden 

2E6A 

D5 



PRUEF 

push 

de 

[Position im Wort retten 

2E6B 

E5 




push 

hl 

[gefundene Position + 1 

2E6C 

2A 

B4 

2E 


Id 

hl,(ALTMERK) 

[Merker laden 

2E6F 

23 




inc 

hl 

[und fuer SBC erhoehen 

2E70 

E5 




push 

hl 

[de mit 

2E71 

Dl 




pop 

de 

! < ALTMERK) + 1 laden 

2E72 

El 




pop 

hl 

[gefundene Position *1 

2E73 

E5 




push 

hl 

[merken 

2E74 

ED 

52 



sbc 

hl ,de 

[subtrahieren 

2E76 

El 




pop 

hl 

[Position + 1 wieder holen 

2E77 

Dl 




pop 

de 

[Position im Wort 

2E78 

22 

B4 

2E 


Id 

(ALTMERK),hl 

[als alten Wert merken 

2E7B 

CA 

88 

2E 


JP 

z,KOMPL? 

[ist Wort komplett? 

2E7E 

2A 

B0 

2E 


Id 

hl,(AKSTART) 

[Zeichenfolge falsch 

2E81 

23 




i nc 

hl 

[ein Byte weiter 

2E82 

22 

B0 

2E 


ld 

(AKSTART),hl 

{merken und dort 

2E85 

C3 

3B 

2E 


JP 

START 

[Suche fortsetzen 

2E88 

22 

B6 

2E 

KOMPL? 

Id 

(EFIND).hl 

[erste Fundadresse 

2E8B 

3A 

AF 

2E 


Id 

a,(RESTLEN) 

[Restlaenge holen 

2E8E 

3D 




dec 

a 

[Zeichen stimmt ln der 
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2E8F 

32 AF 2E 


Id 

(RESTLEN) ,a 

;Folge - merken! 

2E92 

FE 00 


cp 

a, 0 

Ikomplettes Wort gefunden? 

2E94 

CA 9B 2E 


JP 

z,ERFOLG 

;ja - Suche erfolgreich 

2E97 

13 


inc 

de 

Inoch nicht alle Zeichen 

2E98 

C3 64 2E 


jp 

SUCH2 

Ideshalb Suche fortsetzen 

2E9B 

ED 5B AE 2E 

ERFOLG 

ld 

de,(LAENGE) 

iLaenge des Wortes 

2E9F 

ED 52 


sbc 

hl.de 

;subtrahieren 

2EA1 

22 B2 2E 


Id 

(FUNDPOS),hl 

iBeginn des Wortes 

2EA4 

C9 


ret 


Izurueck nach Basic 

2EA5 

21 00 00 

NOERFOL 

Id 

hl,&0000 

inichts gefunden - keine 

2EA8 

22 B2 2E 


Id 

(FUNDPOS),hl 

iFundposition fuer Basic 

2EAB 

C9 


ret 


Izurueck nach Basic 

2EAC 

(0002) 

RAMLEN 

def s 

2 


2EAE 

(0001) 

LAENGE 

def s 

1 


2EAF 

(0001) 

RESTLEN 

def s 

1 


2EB0 

(0002) 

AKSTART 

def s 

2 


2EB2 

(0002) 

FUNDPOS 

def s 

2 


2EB4 

(0002) 

ALTMERK 

def s 

2 


2EB6 

(0002) 

EFIND 

def s 

2 


2EB8 

(0002) 

ERSTBYT 

def s 

2 


2EBA 

(0030 

SUCHW 

def s 

60 



Warnungen: 00000 


Fehler: 00000 

Symbo 1 tabeIle: 

2EB0 AKSTART 
2EB8 ERSTBYT 
2E6A PRUEF 
2EBA SUCHW 


2EB4 ALTMERK 
2EB2 FUNDPOS 
2EAC RAMLEN 


2E48 ERSTPR 
2E88 KOMPL? 
2EAF RESTLEN 


2E9B ERFOLG 
2EAE LAENGE 
2E3B START 


2EB6 EF1ND 
2EA5 NOERFOL 
2E64 SUCH2 


7.3.7 Assemb1er-ListIng: RD.ED1 

;**»*#****»»**#******»*«»*»*«»»»*»****#» 
I* RD.EDI * 

I* Maschinenprogramme fuer RAMDISK.BAS » 
I* * 

org &2ef6 


iBenutzte Firmware-Routinen mit Funktion (F), 
lEinsprungbedingungen (E) und Aussprungbedingungen (A) 
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(CUREN) F=Lasse Darstellung Anwender-Cursor zu 


Itxt cur enable 
! E = keine 

I A= af zerstoert 

i 

Itxt cur disable (CURDI) F = Verhlndere Darstellung Anwender-Cursor 

i E = keine 

I A= af zerstoert 

I 

Itxt read char (RDCHAR) F= Lese Zeichen vom Bildschirm 

I E= keine 

! A= wenn Zeichen erkannt wurde 

1 CARRY an - a enthaelt Zeichen 

I wenn kein Zeichen erkannt wurde 

I CARRY aus - a enthaelt Null 

! immer alle anderen Flags zerstoert 

I 

Itxt set column (SETCOL) F = Setze horizontale Position des Cursors 

i E= a enthaelt die logische Spalte 

I A= af und hl zerstoert 

I 

Itxt set row (SETROW) F= Setze die vertikale Position des Cursors 

I E= a enthaelt die logische Zeile 

I A= af und hl zerstoert 

I 

Itxt stream select (STRSEL) F= Selektiere das Ein-/Ausgabegeraet (Stream) 

I E= a enthaelt Stream-Nummer 

I A= a enthaelt vorherigen Stream 

I hl und Flags zerstoert 

I 

Itxt ur char (WRCHAR) F= Schreibe Zeichen auf den Schirm 

I E= a enthaelt das Zeichen 

I A= af,bc,de,hl zerstoert 

I 

Ikawalt char (WAiTCH) F= Wartet auf naechstes Tastaturzeichen 

I E= keine 

I A= Carry ein 

I a enthaelt das Zeichen 

I AIle anderen Flags zerstoert 

I 

Itxt output (TXTOUT) F= Zeichen/Steuercode an Text-VDU uebergeben 

I E= Akku enthaelt das Zeichen 

I A= alles bleibt erhalten 

I 

Itxt set Cursor (SETCUR) F= Cursor positionieren 

I E= h logische Spalte 

I 1 logische Zelle 

I A= af, hl zerstoert 
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txt place Cursor (PLACUR) F= Stelle Cursor auf dem Bildschirm dar 

E= keine 
A= af zerstoert 

txt remove Cursor (REMCUR) F= Loesche Cursor auf dem Bildschirm 

E= keine 
A= af zerstoert 

txt get Cursor (GETCUR) F= Frage nach aktueller Cursorposition 

E= keine 

A= h enthaelt logische Spalte 
1 enthaelt logische Zeile 
alle Flags zerstoert 


* Merker und Label » 

ANZAHL =Merker fuer zugelassene Zeichenanzahl im Stream 
ARBEIT =Einsprungpunkt bei RAMRD fuer komplettes Lesen 
COPY =WED-Routine wenn Copy-Taste gedrueckt wurde 
CTASTE =Merker ob COPY-Taste gedrueckt wurde 
LINKS =WED-Routine wenn Cursor links eingegeben wurde 
L1NKSM =Merker linke Grenze des Streams 
RECHTS =WED-Routine wenn Cursor rechts eingegeben 
RECHTSM =Merker rechte Grenze des Streams 

RAMDI =Zeiger auf aktuelle RAM-Disk Adresse (wird auch von FILLER benutzt!! 

RAMWR =Einsprung fuer Lesen aus RAM-Disk und Schreiben auf Schirm 

RAMLES =Einsprungpunkt bei RAMWR fuer komplettes Schreiben 

RAMRD =Einsprung fuer Lesen vom Schirm und Schreiben in RAM-Disk 

SPALTE =Merker Spaltenposition des aktuellen Streams 

STREAM =Merker Streamnummer 

WED =Einsprungadresse des WINDOW-Editors 

WLOOP =Schleifeneinsprung fuer Uindow-Editor 

URR =WED-Routine wenn rechter Window-Rand erreicht 

ZEILE =Merker Zeilenposition des aktuellen Streams 

* Definitionen » 


CURD1 

equ 

ibb7e:CUREN 

equ 

S.bb7b:RDCHAR 

equ 

ibb60 

SETCOL 

equ 

8cbb6f :SETR0W 

equ 

Jibb72: STRSEL 

equ 

&bbbA 

URCHAR 

equ 

&bb5d:WAITCH 

equ 

Sibb06:TXTOUT 

equ 

SibbSa 

SETCUR 

equ 

&bb75:PLACUR 

equ 

8,bb8a: REMCUR 

equ 

fcbbBd 

GETCUR 

equ 

ibb78 
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;*»»««******»»*»*#** RAMRD *»***»*»«»***«****» 
;» Lesen von Bildschirmzeichen und schreiben * 
;» in RAM-Disk * 
;*»*»»«#>»*»»»*»»»*»•»«»«*«*»*»»*»»»**»****»*» 


2EF6 

3A 

CC 

2F 

RAMRD 

Id 

a,(STREAM) 

IStreamauswah1 

2EF9 

CD 

B4 

BB 


ca 1 1 

STRSEL 

lauf rufen 

2EFC 

3A 

C9 

2F 


Id 

a,(ZEILE) 

IZei1enposition 

2EFF 

F5 




push 

af 

;retten 

2F00 

CD 

72 

BB 


ca 1 1 

SETROU 

i positionieren 

2F03 

Fl 




pop 

af 

iPosition wieder 

2F04 

32 

C9 

2F 


Id 

(ZEILE),a 

;rueckspeichern 

2F07 

3A 

CA 

2F 

ARBEIT 

Id 

a,(SPALTE) 

iSpalte holen 

2F0A 

F5 




push 

af 

;und merken 

2F0B 

CD 

6F 

BB 


ca 1 1 

SETCOL 

[Spalte positionieren 

2F0E 

Fl 




pop 

af 

[wieder holen 

2F0F 

3C 




i nc 

a 

!erhoehen 

2Fi0 

32 

CA 

2F 


Id 

(SPALTE),a 

[neue Spalte merken 

2F13 

2A 

CB 

2F 


Id 

hl,(ANZAHL) 

Iverbliebene Zeichen 

2F16 

7D 




Id 

a, 1 

lAnzahl zum Vergleich in Akku 

2F17 

FE 

00 



cp 

0 

lEnde ? 

2F19 

C8 




ret 

z 

;ja -> Basic 

2F1A 

2B 




dec 

hl 

iZeichenanzahl erniedrigen 

2F1B 

22 

CB 

2F 


Id 

(ANZAHL),hl 

Ineue Anzahl merken 

2F1E 

CD 

60 

BB 


ca 1 1 

RDCHAR 

iLesen und Zeichen in den Akku 

2F21 

2A 

D0 

2F 


Id 

hl, (RAMDI) 

;RAM-Disk-Adresse holen und 

2F24 

77 




Id 

(hl ),a 

iAkkuinhalt ln RAM-Disk 

2F25 

23 




inc 

hl 

IRAM-Disk-Adresse erhoehen 

2F26 

22 

D0 

2F 


Id 

(RAMDI),hl 

Sund merken 

2F29 

C3 

07 

2F 


jp 

ARBEIT 

;weitermachen 










; »**#«****»#* 

RAMUR 

#####*###**# 





!* Lesen von 

Zeichen aus der RAM-Disk und * 





; « 

schreiben auf den 

Bildschirm » 






«****«**»*#*»*»*» 

2F2C 

3A 

CC 

2F 

RAMWR 

ld 

a,(STREAM) 

iStream auswaehlen 

2F2F 

CD 

B4 

BB 


ca 1 1 

STRSEL 


2F32 

2A 

D0 

2F 

RAMLES 

Id 

hl,(RAMDI) 

iAdresse der RAM-Disk holen 

2F35 

7E 




Id 

a,(hl ) 

iZeichen aus RAM-Disk lesen 

2F36 

23 




i nc 

hl 

1 RAM-Diskadresse erhoehen 

2F37 

22 

D0 

2F 


ld 

(RAMDI),hl 

lund merken 

2F3A 

CD 

5D 

BB 


ca 1 1 

URCHAR 

iZeichen aus Akku schreiben 
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2F3D 

2A 

CB 

2F 


ld 

hl,(ANZAHL) 

iZeichenanzahl holen 

2F40 

7D 




Id 

a, 1 

iAnzahl in den Akku 

2F41 

FE 

00 



cp 

a, 0 

[vergleichen auf Null 

2F43 

C8 




ret 

z 

Izurueck ins Basic 

2F44 

2B 




dec 

hl 

iZeichenanzahl erniedrigen 

2F45 

22 

CB 

2F 


ld 

(ANZAHL),hl 

iund merken 

2F48 

C3 

32 

2F 


jp 

RAMLES 






;««tftftt**tf**tftftf*tf***tfft*****Kftft*ft*««ft*tt«*** 





;*» UED 

- Uindow-Editor 

«tffttfttfttf«ft*»*»«« 





;#######*########*#**#######*#####*#*#*## 

2F4B 

3A 

CC 

2F 

UED 

Id 

a,(STREAM) 

iSTREAM holen 

2F4E 

CD 

B4 

BB 


ca 1 1 

STRSEL 

iund auswaehlen 

2F51 

CD 

78 

BB 

WLOOP 

ca 1 1 

GETCUR 

iCursorposition holen 

2F54 

CD 

75 

BB 


ca 1 1 

SETCUR 

iCursor setzen 

2F57 

CD 

8A 

BB 


ca 1 1 

PLACUR 

iCursor auf erste Position 

2F5A 

CD 

06 

BB 


ca 1 1 

WAITCH 

;Auf Zeichen warten 

2F5D 

4F 




ld 

c, a 

[Zeichen retten 

2F5E 

CD 

8D 

BB 


ca 1 1 

REMCUR 

iCursorsymbo1 entfernen 

2F61 

79 




Id 

a, c 

iZeichen wieder holen 

2F62 

FE 

0D 



cp 

a, 13 

i ist es ENTER (RETURN)? 

2F64 

ca 




ret 

z 

ija -> Basic 

2F65 

FE 

E0 



cp 

a, 224 

iCopy-Taste ? 

2F67 

CA 

C5 

2F 


JP 

z.COPY 

iSprung zur Routine Copy-Taste 

2F6A 

FE 

F2 



cp 

a, 242 

;ist es Cursor 1inks ? 

2F6C 

CA 

91 

2F 


jp 

z,LINKS 

ija -> Routine links 

2F6F 

FE 

F3 



cp 

a, 243 

iist es Cursor rechts ? 

2F71 

CA 

A7 

2F 


JP 

z,RECHTS 

ija -> Routine rechts 

2F74 

FE 

7F 



cp 

a,«.7f 

iZeichen groesser 17f 

2F76 

F2 

51 

2F 


jp 

p,WLOOP 

ija weitermachen 

2F79 

FE 

20 



cp 

a, 32 

iZeichen kleiner 32 

2F7B 

FA 

51 

2F 


jp 

m, WLOOP 

ija weitermachen 

2F7E 

CD 

5A 

BB 


ca 1 1 

TXTOUT 

iund ausgeben 

2F81 

CD 

78 

BB 


ca 1 1 

GETCUR 

iund Cursorposition holen 

2F84 

3A 

CE 

2F 


Id 

a,(RECHTSM) 

irechten Maximalwert 

2F87 

3C 




inc 

a 

ierhoehen 

2F88 

57 




ld 

d, a 

iund merken 

2F89 

7C 




Id 

a, h 

iaktuelle Position holen 

2F8A 

BA 




cp 

a, d 

iund vergleichen 

2F8B 

CA 

BD 

2F 


jp 

z, WRR 

iWindowposition rechts erreicht 

2F8E 

C3 

51 

2F 


jp 

WLOOP 

iweitermachen 

2F91 

3E 

08 


LINKS 

ld 

a, 8 

iAkku mit Backspace laden 

2F93 

4F 




Id 

c, a 

iund merken 

2F94 

CD 

78 

BB 


ca 1 1 

GETCUR 

[Cursor holen 
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2F97 

3A 

CD 2F 


Id 

a, (LINKSH) 

!1Inken Grenzwert 

2F9A 

57 



Id 

d, a 

(merken und gilt 

2F9B 

7C 



Id 

a, h 

;aktue11em Wert 

2F9C 

BA 



cp 

a, d 

;vergleichen 

2F9D 

CA 

51 2F 


JP 

z,WLOOP 

;Rand erreicht 

2FA0 

79 



Id 

a, c 

iBackspace 

2FA1 

CD 

5A BB 


cal 1 

TXTOUT 

iausfuehren 

2FA4 

C3 

51 2F 


jP 

WLOOP 

(weitermachen 

2FA7 

3E 

09 

RECHTS 

Id 

a, 9 

(Akku mit Cursor vorw. laden 

2FA9 

4F 



Id 

c, a 

(und merken 

2FAA 

CD 

78 BB 


ca 1 1 

GETCUR 

(aktuellen Wert holen 

2FAD 

3A 

CE 2F 


Id 

a,(RECHTSM) 

(rechten Grenzwert 

2FB0 

57 



ld 

d, a 

(merken 

2FB1 

7C 



Id 

a, h 

(aktuellen Wert 

2FB2 

BA 



cp 

a, d 

! vergleichen 

2FB3 

CA 

51 2F 


JP 

z,WLOOP 

(Rand erreicht 

2FB6 

79 



Id 

a, c 

(Cursor vorwaerts 

2FB7 

CD 

CQ 

CO 

< 

LO 


ca 1 1 

TXTOUT 

(ausfuehren 

2FBA 

C3 

51 2F 


JP 

WLOOP 

(und weitermachen 

2FBD 

3E 

08 

WRR 

Id 

a, 08 

(Backspace 

2FBF 

CD 

5A BB 


ca 1 1 

TXTOUT 

(ausgeben 

2FC2 

C3 

51 2F 


JP 

WLOOP 

(und weiter 

2FC5 

32 

CF 2F 

COPY 

Id 

(CTASTE),a 

(Flag setzen 

2FC8 

C9 



ret 


(und zurueck ins Basic 




iSpeicherstellen fuer POKEn 

von Basic aus 

2FC9 

01 


ZEILE 

def b 

8,01 


2FCA 

01 


SPALTE 

def b 

8,01 


2FCB 

01 


ANZAHL 

def b 

&01 


2FCC 

07 


STREAM 

def b 

«,07 


2FCD 

05 


LINKSh 

def b 

«,05 


2FCE 

06 


RECHTSM 

def b 

«,06 


2FCF 

(0001) 

CTASTE 

def s 

1 


2FC0 

(0002) 

RAMDI 

def s 

2 



Fehler: 00000 Warnungen: 00000 


Symbo 1 tabel1e: 


2F07 

ARBEIT 

2FCB 

ANZAHL 

BB7E 

CURDI 

BB7B CUREN 

2FC5 

COPY 

2FCF 

CTASTE 

BB78 

GETCUR 

2F91 

LINKS 

2FCD LINKSH 

BB8A 

PLACUR 

BB60 

RDCHAR 

BB8D 

REMCUR 

2EF6 

RAMRD 

2F2C RAMWR 

2F32 

RAMLES 

2FA7 

RECHTS 

2FCE 

RECHTSM 

2FD0 

RAMDI 

BB6F SETCOL 

BB72 

SETROW 
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BBB4 STRSEL 
BB5D WRCHAR 
2FC9 ZEILE 


BB75 SETCUR 
BB06 WAITCH 


2FCA SPALTE 
2F4B WED 


2FCC STREAM 
2F51 ULOOP 


BB5A TXTOUT 
2FBD WRR 


7.3.8 Assemb1er-Llst Ings FILLER.EDI 


;»***»**********»»»»*****»*»»«*»***»*»«»*»»»»»* 


!• FILLER.EDI * 

(* (c) 1986 by Lothar Miedel » 

!«---* 

!» Routine um den durch RAMD1SK (Anfang) und * 
;« MEMHIGH (Ende) festgelegten Speicher- * 

!* bereich mit einem von Basic aus zu ueber- » 
!* gebenden Zeichen (FCHAR) aufzufuellen. » 


;***»*«»*«»***#»*»*»»*»»**#»*#»*#**»»*#»*#»*#»» 


;FCHAR =Merker fuer das von Basic uebergebene Fuellzelchen 
»FILLER =Einsprungadresse des Fue1Iprogrammes 
(FUELL =Elnsprung fuer Fue11 schIeife 

(RAMDI =Merker fuer Zeiger auf RAM-Dlsk-Adresse diese Speicherstelle wird 
; auch beim Programm WED verwendet und stellt dort die letzten 

; beiden Bytes dar! 

org 8»2fd0 

RAMD1 defs 2 






org 

&2fd2 



2FD2 

2A 

D0 

2F 

FILLER 

Id 

hl, (RAMDI ) 

»Startadresse der RAM-Dlsk 

2FD5 

2B 




dec 

hl 

»erniedrigen und zum 

2FD6 

E5 




push 

hl 

(Austausch retten 

2FD7 

CI 




pop 

bc 

»Austausch = BC uebernehmen 

2FD8 

2A 

'S* 

u_ 

2F 


ld 

hl,(memhig) 

»Endadresse der RAM-Dlsk 

2FDB 

E5 




push 

hl 

!retten 

2FDC 

ED 

42 



sbc 

h 1, bc 

(Subtraktion 

2FDE 

E5 




push 

hl 

(fuer Austausch retten 

2FDF 

CI 




pop 

bc 

iaustauschen (Laenge in BC) 

2FE0 

El 




pop 

hl 

(Endadresse 

2FE1 

3A 

F6 

2F 

FUELL 

ld 

a,(FCHAR) 

(Fuellerzeichen 

2FE4 

77 




ld 

(hl ) »a 

(in RAM-Diskadresse schreiben 

2FE5 

2B 




dec 

hl 

(Adresse erniedrigen 

2FE6 

0B 




dec 

bc 

(Laenge erniedrigen 

2FE7 

78 




ld 

a, b 

(pruefen ob 

2FE8 

FE 

00 



cp 

0 

(das Ende erreicht 
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2FEA 

C2 El 

2F 

JP 

nz,FUELL 

inein - weitermachen 

2FE0 

79 


ld 

a, c 

iweitere Pruefung 

2FEE 

FE 00 


cp 

0 

Job Ende erreicht 

2FF0 

C8 


ret 

z 

iJa -> Basic 

2FF1 

C3 El 

2F 

JP 

FUELL 

inein - weitermachen 

2FF4 

(0002) 

MEMHIG 

def s 

2 


2FF6 

2E 00 

FCHAR 

def w 

»t ft 


Fehler 

: 00000 

Uarnungen: 00000 




Symbo1tabeIle: 

2FD2 FILLER 2FE1 FUELL 2FF6 FCHAR 2FF4 MEMHIG 2FD0 RAMDI 
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7.4 Programmbeschreibung RAMD1SK2 
(FUr den CPC 6128) 


Dieses zweite Programm fllr den RAM-Disk-Betr1eb läuft 
nur auf dem CPC 6128, da es die zusätzlichen RAM-Bänke 
dieses CPC-Typs benutzt. 

Der Programmaufbau ist dem von RAMDISK1.BAS sehr ähn¬ 
lich, das heißt aus diesem wurde es auch entwickelt. 
Warum sollte man das Rad zweimal erfinden? Da jedoch 
zuviele Details unterschiedlich sind, finden Sie es 
hier komplett abgedruckt. 

FUr das Verstehen dieses Programmes sollten Sie des¬ 
halb die Beschreibung von RAMDISK1.BAS lesen, denn 
hier finden Sie nur einige Unterschiede aufgefuhrt. 

Im Gegensatz zum anderen Programm fUr einen RAM-Disk- 
Betrieb haben wir bei diesem nun mehr Speicherplatz 
zur Verfügung, denn es ist Ja speziell fUr den CPC 
6128 und der hat ja zusätzliche 64 KByte RAM-Speicher. 

Da dieses Programm aber ohne den Bankmanager arbeiten 
soll, muß eine eigene Routine in Maschinensprache wei¬ 
terhelfen, denn unsinnigerweise wurde der Bankmanager 
von Schneider oder Amstrad geschlitzt und ist fUr reine 
Bankumschaltungen auch viel zu lang. Wer Datei-Verwal¬ 
tungen mittels des Bankmanagers aufbauen will, findet 
außerdem im Handbuch ein entsprechendes Programmbei¬ 
spiel (ANAGRAMS, Kapitel 8 des 6128 Handbuches). 

Derjenige hat dann im Regelfall auch nur 64 KByte- 
Datenspeicher, mit diesem Programm aber 80! 

Wenn im Laufe dieser Beschreibung von "bankswitching" 
gesprochen wird, dann ist eigentlich "b1ockswitching" 
gemeint, aber in Anlehnung an das CPC-Handbuch, in dem 
aufgefUhrt ist, daß der Vorgang zur Blockauswahl 
"bankswitching" heißt, habe ich mich an diese Defini¬ 
tion geha1ten. 

Doch nun zu den wichtigen Punkten des Programmes. 

Die Zeilen bis einschließlich 430 sind im Prinzip mit 
denen des ersten RAM-Disk-Programmes identisch, nur 
mußte beim ersten Programm komprimiert werden, da 
sonst der Speicherplatz nicht gereicht hätte. In Zeile 
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430 Ist jedoch eine Maschinensprache-Einsprungadresse 
hinzugekommen, nämlich die Auf rufadresse des "Bank- 
scha1ters". 

Diese liegt bei &81BD. Und damit fällt auch gleich 
auf, daß im Gegensatz zu den Maschinenprogrammadressen 
des vorigen Programmes nun ein anderer Bereich gewählt 
wurde. 

Das hat Grlinde. Die Bankumschaltung beim CPC 6128 
funktioniert im Normalfalle so, daß die gewünschte 
Bank in den Bereich von &4000 bis &7FFF gebracht wird. 
Da dieses Programm nun alle vier Blbcke (so nennt man 
einen 16-KByte-Bereich) der zweiten Bank, plus den 
Block der "Normalbank" verwenden soll, wurde in Zeile 
190 der Speicher auf &3FFF begrenzt. Der Bereich ober¬ 
halb der Datenbänke steht fUr Maschinenprogramme zur 
Verfügung. 

Die Maschinenroutinen sind zwar die gleichen, wie beim 
Programm RAMDISK1, aber der Bereich ist ein anderer. 
Das hat, weil die Routinen auch fUr diesen Bereich 
assembliert abgedruckt sind, fUr Sie den Vorteil, daß 
Sie fertige Routinen in zwei Adreßbereichen haben. Sie 
könnene diese nun wahlweise (je nach Problem) in ande¬ 
ren Programmen einsetzen. 

Deshalb haben die Adressen in den Zeilen 370, 390, 

400, 410 und 430 als erste Ziffer eine Acht. 

Eine weitere Abweichung vom Schema stellen die Zeilen 
500 bis 540 dar. In jeder wird eine bestimmte Bank 
ausgewählt und diese Bank mit dem Füllzeichen be¬ 
schrieben. Damit wird siehergeste11t, daß beim erst¬ 
maligen Arbeiten mit diesem Programm - also wenn noch 
keine Daten vorhanden sind - nicht irgendwelcher 
"Blödsinn" in den Blöcken enthalten ist. Wer will kann 
diese Zellen später entfernen, denn wenn Daten vorlie¬ 
gen, können diese Ja auch geladen werden. 

ln den Zeile 1160 und 1170 wird die aus der Eintrags¬ 
nummer sich ergebende Bank berechnet. Ebenso die 
Block-Eintragsnummer "benr". 

In Zeile 1580 wird die "alte Bank" in der Variablen 
"altbank" aufgehoben, um bei einem negativen Suchvor¬ 
gang (F = FIND) auf dem aktuellen Eintrag stehen zu 
b1eiben. 
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Die Variable "stand" in 1590 beinhaltet die "Beginn¬ 
adresse" fUr die Suche, da der Offset addiert wird. 

Die Variable "rest" in 1620 beinhaltet die Anzahl der 
zu durchsuchenden Bytes bis zum Ende des Blockes 
(&7FFF). 

Beim eigentlichen Suchvorgang (Zeile 1670) wird immer 
nur eine Bank durchsucht, deshalb erfolgt durch die 
Zeilen 1690 bis 1770 die definierte Umschaltung auf 
die anderen Blöcke und die Suche in den anderen Bän¬ 
ken. 


Ist eine Suche erfolglos, dann bleibt das Programm auf 
der Eintragsnummer stehen, die bei Beginn des Suchvor¬ 
ganges aktuell war. Hierzu dient Zeile 1700. 

Die Variable "altbank" aus Zeile 1580 wird eigentlich 
nicht benötigt, kann aber bei einem noch nicht fehler¬ 
freien Programm als Hilfsmittel dienen. Deshalb ist 
sie noch im Programm! 

Das Laden und Speichern der 16 KByte-Blöcke geschieht 
in den Zeilen 1910 bis 2080. Die einzelnen Blöcke wer¬ 
den als getrennte Files behandelt. 

Das ist eigentlich alles, was zusätzlich zu diesem 
Basic-Teil erwähnt werden musste. 


7.4.1 Baslc-Llstlng: RAMD1SK2.BAS für den CPC 6128 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 


•***«•««•*••**««•**«*•*•»«•*«*•«•«•••*«» 
» » 

» RAMD1SK2.BAS * 

* * 


Copyright by Lothar Miedel 1986 


*»»»»*****»****»***)(»*»*»**#«#«*»*****»» 
MODE 2:MEM0RY &3FFF:basls = 1 
Fenster definieren 

WINDOW #0,2,79,5,22:W1NDOW »1,2,79,1,1 
WINDOW #2,61,78, 1, ÜW1ND0W #3,2,78,3,3 
WINDOW #4,60,78,24,24: WINDOW #5,2,50,24,24 
WINDOW #6,60,78,15,20 


116 





Programmbeschrelbungen 


270 'Rahmen zeichnen 

280 DRAU 0,380:DRAU 639,380:DRAU 639,349:DRAU 0,349:DRAU 0,35 
290 DRAU 639,35:DRAU 639,379:DRAU 639,0:DRAU 0,0 

300 •- 

310 PRINT»1,CHR*(24) "Dateiverwaltung mit 6128-RAM-DISK"CHR*(24) 

320 PR 1NT#3,"Lade das Maschinenprogramm" :L0AD"ramd isk2. mpg", 8<8000 
325 PRINT 13,"Bitte Datendisk einlegen und Taste druecken!":CALL &BB06 
330 GOSUB 580Maskendaten holen 
340 ’ 

350 'Definitionen 

360 lnv*=CHR*<24):norm*=lnv* 

370 zeilem = 8<818E:mspalte = zeilem+l:manzahl=zeilem+2:strean = zeilem+3 

380 linksm=stream+l:recht sm = s tream + 2: memhi g=8.81B9:fchar=&81BB 

390 fll ler=$i8197:zelchen=i2E: ramd i=zeilera+7:ctaste=8<8194 

400 ramrd = 8<80BB : wed=&8110: ramwr=8c80Fl: fundpos =8.8077: suchuor t =&807F 

410 suche =8.8000: ram I en=8.8071: laenge=8<8073:aktstart = 8<8075 

420 ramlow=VAL("8<" + MlD*(buffanf*,3,2>) : ramhi gh=VAL< "8<" + M ID* (buf fanf», 1,2)) 

430 zeile = l:spalte = l:anzahl=56:str = 7:bswltch=8.81BD 

440 '»»M*»**»»*»»«»»**#*»»»»*»*»»»»*»»«»«*»*»***»»»**»*«*»**»»»»**«**»» 

450 ' Die Bioecke mit dem Zeichen fchar belegen 
460 POKE memhig,V AL ("8." + MlD*( buffend *,3,2)) 

470 POKE memhlg + 1, VAL("8<" + MID*(buf fend*, 1,2)) 

480 POKE ramd1,ramIow:POKE ramdl♦1, ramhlgh 
490 POKE fchar,Zeichen 

500 CALL bswltch,4:CALL filier:' Zusatzbank 1 
510 CALL bswl tch, 5 -'CALL filier:' Zusatzbank 2 
520 CALL bswitch,6:CALL filier:' Zusatzbank 3 
530 CALL bswitch,7:CALL filier:’ Zusatzbank 4 
540 CALL bswitch,0:CALL filier 
550 GOTO 760 

560 *—-- 

570 'Maskendaten lesen 

580 PRINT#3,"Lese die Maskendaten 

590 0PENIN"ramdisk2.rask" 

600 INPUT #9,buffanf*,buffend*,eintraege,off,fe1 der 

610 buf fanf =VAL("S<" + buf fanf *) : buf f end = VAL( "8<" + buf fend») :dlf f =buff end-buf fanf + 1 
620 IF diff <0 THEN dlf f = di f f+ 2''16 

630 DlM fenam*(feIder),feldlen(felder),xposl(felder),yposi(fei der) 

640 DIM feldlnh»(fe 1 der ) 

650 FOR 1 = 1 TO f e I der 
660 INPUT 19,fenam*(1) 

670 INPUT #9, feldlend ) 

680 benutzt = benutzt + feId1en(i) 

690 INPUT *9,xposi(1) 

700 INPUT #9,yposi(i) 

710 NEXT 1 

720 anzprobank=INT(eintraege/5> 

730 CLOSEIN:PRINT#3,inv* "Maske gelesen - Ausgabe der Maske" norm* 
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740 RETURN 

750 .--- 

760 FOR j = 1 TO fei der 

770 LOCATE xposi(j),yposi(j ) 

780 PRINT fenamt(j) 

7S0 NEXT j 

800 ’--- 

810 PRINT #3,"Auf geht's ! 

820 LOCATE #1,47,1:PR1 NT#1,"Dateieintraege: "eintraege"*"off 
830 nr=basis:G0T0 1090 
840 ' 

850 PRINT #3,inv*"GOTO _"inv* 

860 INPUT #5,"Eintragsnummer"; nr*:enr*=LEFT*(nr*,6) 

870 IF LEN(nr*)<1 THEN 860 

880 IF ASC(LEFT*(nr*,1))>57 THEN 860 

890 IF ASC(LEFT*(nr*,l>><48 THEN 860 

900 nr-VAL(nrt):G0T0 1090 

910 ’ 

920 CLS #3:PRINT »3,inv$ "Daten gueltlg! Bitte Ihre Eingabe!" norm* 
930 CLS #5:PRINT #5,"Eintragsnummer: "nr 
940 CLS #4 
950 ' 

960 x*=L0UER*(INKEY*):IF x* = "" THEN 960 

970 IF x*="e" THEN 2090 

980 IF x*="f" THEN 1530 

990 IF x*="g" THEN 850 

1000 IF x*="l" THEN 1910 

1010 IF x»-"s" THEN 2000 

1020 IF ASC(x*)=224 THEN 1350 

1030 IF ASC(x*)<240 THEN 960 

1040 IF ASC(x»)>243 THEN 960 

1050 IF ASC(x*)=243 THEN nr=nr+l 

1060 IF ASC(x»)=242 THEN nr=nr-l 

1070 IF ASC(x*)=240 THEN nr=nr+10 

1080 IF ASC(x*)=241 THEN nr=nr-10 

1090 ’ 

1100 IF nr<basis THEN GOSUB 1460:nr=basis 

1110 IF nr-basis+l>=5*anzprobank THEN nr=5»anzprobank+basis-l 
1120 enr=nr-basis 
1130 ' 

1140 CLS #3:PR INT #3,inv*"Moment bitte!"inv* 

1150 IF enr<anzprobank THEN bank=0:GOTO 1170 

1160 bank=INTIenr/anzprobank) + 3 MOD anzprobank 

1170 benr=(enr MOD anzprobank):enr=(enr MOD anzprobank) 

1180 1 

1190 'Berechne Bufferoffset und Beginnadresse 

1200 buffoff=(benr)*off 

1210 IF buffoff <0 THEN buffoff=0 
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1220 begad=VAL("fc" + buffanf*)+buffoff :' Datenbuffer festlegen 
1230 ' 

1240 'Leseschleife 

1250 1F bank > 7 THEN bank - 0 

1260 CALL bswitch,bank 

1270 POKE stream,str:zz=0:FOR i = 1 TQ felder 
1280 beginn=begad+zz:zz=zz+feldlen(i) 

1290 zeile=yposi(i):anzahl=feldlen(i)-l 

1300 ramhigh=INT(beginn/256):ram1ow=beginn-ramhigh*256 

1310 WINDOW #7,xposi(i)+16,xposi(i)+feldlen(i)+16,zeile+4,zeile+4:CLS #7 
1320 GOSUB 1830:CALL ramwr:NEXT i:G0T0 920 

1330 '---- 

1340 ’Aendern 

1350 PRINT #3,inv*"Bitte Ihre Eingaben!"inv*:PR I NT #5, "Aendern":PRINT #4,nr 
1360 POKE stream,str : zz = 0 
1370 FOR i = 1 TO felder 

1380 bsginn=begad+zz:zz=zz+feldlen(i):zeile=yposi(i):anzahl=feldlen(i)-l 

1390 ramhigh=lNT(beginn/256):ramlow=beginn-ramhigh*256 

1400 WINDOW »7,xposi(i)+16, xposi(i)+ fe1d1en(i)+ 17,zei1e+4,zei le + 4 

1410 GOSUB 1890:CALL WED 

1420 ' 

1430 anzahl=feldlen(i):GOSUB 1830:CALL ramrd:NEXT i:PRINT *5:G0T0 920 
1440 ' 

1450 'Fehlerbehandlung 

1460 PRINT #3,inv* "Fehler! "norm»; 

1470 PRINT #5,inv*" Bitte Taste 'j' oder ’n’ druecken!"inv*:PR I NT CHR*(7); 

1480 x*=LOWER*(INKEY*):1F x* = "" THEN 1480 

1490 1F x*<> "j" AND x*<> "n" THEN 1480 ELSE CLS #5:RETURN 

1500 CLS #3 

1510 RETURN 

1520 '--- 

1530 PRINT #3,inv*"Suchen: "inv*" Bitte geben Sie die Zeichenfolge ein! " 
1540 INPUT #5,such*:lF LEN (such*)=0 THEN sw*=sw* ELSE sw*=such* 

1550 wlaenge=LEN(sw*):1F vlaenge>56 THEN sw*=LEFT*(sw*,56):G0T0 1550 
1560 FOR i=1 TO wlaenge:POKE suchwort+i-1,ASC(MlD*(sw*,1,1)):NEXT 1 
1570 POKE Iaenge,wlaenge 
1580 a1tbank=bank:a1tnr=nr 
1590 stand=begad+off 
1600 ' 

1610 sthi = INT (stand/256):st 1o-stand-sthi *256 
1620 rest=buffend-stand 

1630 ramI hi = 1 NT(rest/256):ramllo=rest-raml hl *256 
1640 ' 

1650 POKE aktstart,stlo:POKE aktstart+1,sthi 
1660 POKE ram1en,ram11o:P0KE ramlen+1,ram1 hi 
1670 CALL suche:fs=PEEK(fundpos)+PEEK(fundpos+1)*256 
1680 ’ 

1690 IF fs>&7FFF THEN fs = 0 
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1700 1F bank=7 THEN !F fs = 0 THEN nr=a1tnr:G0T0 1800 
1710 IF f s = 0 THEN 1760 
1720 enr=INT((fs-buffanf)/off)+basis 
1730 IF bank =0 THEN nr=enr 

1740 IF bank<>0 THEN nr=enr+anzprobank»(bank-3) 

1750 IF enr>0 THEN 1780 

1760 IF bank <7 THEN bank = bank+l:IF bank <4 THEN 1760 

1770 CALL bswitch,bank:IF bank <> altbank THEN stand=8<4000 :G0T0 1610 

1780 ' 

1790 GOTO 1090 

1800 PRINT #3,invt"Nicht gefunden !"inv*:G0SUB 1470:GOTO 1090 

1810 '----- 

1820 'Lesen aus Window 7 und schreiben in RAM-Disk 
1830 zeiIe = l:spa1te=l:POKE zeilern,zeile 
1840 POKE manzahl,anzahl:P0KE mspa1te,spaIte 
1850 POKE ramdi,ram1ow:POKE ramdi+1,ramhigh 
1860 IF PEEK(ctaste)=224 THEN i = felder 
1870 POKE ctaste,0:RETURN 
1880 ' 

1890 1inks = 16:rechts = fe1d1en(i) 

1900 POKE stream,str:POKE 1inksm,1:P0KE rechtsm,rechts:RETURN 
1910 PR INT#3,inv*”Datenfile Iaden"inv»:G0SUB 1470 
1920 IF x*<>"j" THEN 1090 

1930 CALL bswitch,0: LOAD"ramdisk2.dal",buf fanf 
1940 CALL bswitch,4:L0AD"ramdisk2.da2",buffanf 
1950 CALL bswitch,5:L0AD"ramdisk2.da3",buffanf 
1960 CALL bswitch,6:L0AD"ramdisk2.da4",buffanf 
1970 CALL bswitch,7:L0AD"ramdisk2.da5",buffanf 
1980 CALL bswitch,0 
1990 GOTO 1090 

2000 PR INT#3,inv*"Datenfiles speichern"inv*:G0SUB 1470 
2010 IF x$<>"j" THEN 1090 

2020 CALL bswitch,0:SAVE"ramdisk2.dal",b,&4000,&3FFF 
2030 CALL bswi tch, 4:SAVE"ramdisk2.da2",b, 8.4000, &3FFF 
2040 CALL bswitch, 5:SAVE"ramdisk2. da3", b, 8,4000,8.3FFF 
2050 CALL bswitch,6:SAVE"ramdisk2. da4",b,8,4000,8.3FFF 
2060 CALL bswitch, 7:SAVE"ramdisk2. da5", b, 8,4000,8.3FFF 
2070 CALL bswitch,0 
2080 GOTO 1090 

2090 PRINT #3,"Programm beenden ???" 

2100 GOSUB 1470 

2110 IF x»="n" THEN GOTO 1090 

2120 IF x$="j" THEN MODE 2:END 
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Um die Maschinenprogramme zu erzeugen, gibt es die 
nachfolgenden Hexlader. FUr das Programm selbst ist 
nur der mit der Bezeichnung RAMD1SK2.HEX (7.4.6) er¬ 
forderlich, die anderen können als Hilfe fUr Ihre 
eigenen Programme dienen. 


7.4.2 Hexlader: SUCHER2.HEX fUr den CPC 6128 

100 REM SUCHER2.HEX 
110 ’ 

120 MEMORY &7FFF 
130 ' 

140 a= 32768:e= 32881:zb=1001 

150 FOR i =a TO e:READ d$:IF LEFT*(d»,1)<>"*<" THEN 180 
160 IF psOVAL(di) THEN PRINT"Fehler Zeile "zb:END 
170 ps=0:d* = "": IF l=e THEN 230 ELSE i = i-1 :zb=zb+l :G0T0 210 
180 d* = "*<" + d$ 

190 POKE i,VAL(d$):ps=ps+VAL(d*) 

200 PRINT VAL(d*> 

210 IF i < e THEN NEXT i 
220 • 

230 SAVE"sucher2. bin", b, *,8000, i70 
240 ’ 

1001 DATA ED,4B,71,80, 11,7F,80,2A,75,80,22,79,80,3A,73,80,&06A0 

1002 DATA 32,74,80, 1A,ED,Bl,C2.6A,80,2B,22,75,80,22,7D,80,*<06EB 

1003 DATA 22,79.80.3A,73,80,32,74,80,1A,ED,Bl,C2,6A,80,D5,&07A7 

1004 DATA E5, 2A, 79,80,23, E5, Dl, El, E5, ED, 52, El, Dl, 22, 79, 80, *i09B3 

1005 DATA CA,4D,80,2A,75,80,23,22,75,80,C3,00,80,22,7B,80,*<0650 

1006 DATA 3A, 74,80, 3D, 32, 74, 80, FE, 00, CA, 60,80, 13, C3, 29,80, *<06B8 

1007 DATA ED, 5B, 73,80, ED, 52, 22, 77,80, C9,21,00,00,22, 77, 80, *<0696 

1008 DATA C9, *<00C9 


7.4.3 Hexlader: RD2.HEX fUr den CPC 6128 

100 REM RD2.HEX 
110 ’ 

120 MEMORY &7FFF 
130 ' 

140 a= 32955: e = 33175:zb=2000 

150 FOR i =a TO e:READ d*: IF LEFT$(d$, 1 )<>"*<" THEN 180 
160 IF psOVALld*) THEN PRINT"Fehler Zeile "zb:END 
170 ps=0:d$="":IF i=e THEN 230 ELSE i=i-l:zb=zb+l:G0T0 210 
180 d* = "*<" + d* 

190 POKE i,VAL(d*):ps=ps+VAL(d*) 

200 PRINT VAL(d$) 

210 IF i < e THEN NEXT i 
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220 ' 

230 SAVE"rd2. bin", b, 8<80BB, 8, DB 
240 ' 

2000 DATA 3A,91,81,CD,B4,BB,3A,8E,81,F5,CD,72,BB,Fl,32,8E,10971 

2001 DATA 81,3A,8F,81,F5,CD,6F,BB,Fl,3C,32,8F,81,2A,90,81,8,0861 

2002 DATA 7D,FE,00,C8,2B,22,90,81,CD,60,BB,2A,95,81,77,23,8,0763 

2003 DATA 22,95, 81, C3, CC, 80, 3A, 91,81, CD, B4, BB, 2A, 95, 81,7E, 8<088D 

2004 DATA 23,22,95,81,CD,5D,BB,2A,90,81,7D,FE,00,C8,2B,22,&070B 

2005 DATA 90,81, C3, F7, 80, 3A, 91,81, CD, B4, BB, CD, 78, BB, CD, 75, !<0A15 

2006 DATA BB,CD,8A,EB,CD,06,BB,4F,CD,8D,BB,79,FE,0D,C8,FE,8,0 A09 

2007 DATA E0,CA,8A,81,FE,F2,CA,56,81,FE,F3,CA,6C,81,FE,7F,8<0B6B 

2008 DATA F2,16,81,FE,20,FA,16,81,CD,5A,BB,CD,78,BB,3A,93,&08E7 

2009 DATA 81,3C, 57, 7C, BA, CA, 82, 81, C3, 16, 81,3E, 08.4F, CD, 78,8<074B 

2010 DATA BB,3A,92,81,57,7C,BA,CA,16,81,79,CD,5A,BB,C3,16,8,082A 

2011 DATA 81,3E,09,4F,CD,78,BB,3A,93,81,57,7C,BA,CA, 16,81,8,0753 

2012 DATA 79,CD,5A,BB,C3, 16,81,3E,08,CD,5A,BB,C3, 16,81,32,8,0769 

2013 DATA 94, 81, C9, 01,01,01,07, 05,06, 00, 00,00,8,01F3 

7.4.4 Hexlader? F1 LL.ER2. HEX fUr den CPC 6128 

100 REH F1LLER2.HEX 
110 ' 

120 MEMORY 8.7FFF 
130 ’ 

140 a= 33175:e = 33213:zb=2000 

150 FOR i =a TO e:READ d*:IF LEFTild*, 1 ><>"8," THEN 180 
160 IF psOVAL(di) THEN PRINT"Fehler Zeile "zb:END 
170 ps = 0:d* = n ": IF i=e THEN 230 ELSE 1=1-1:zb=zb+l:G0T0 210 
180 d* = "8," + dt 

190 POKE 1,VAL(d$):ps=ps+VAL(d») 

200 PRINT VAL(d$) 

210 IF 1 < e THEN NEXT i 
220 ' 

230 SAVE"f 11 ler2.bin", b, 8,8197, 8,25 
240 ’ 

2000 DATA 2A, 95,81,2B, E5, CI, 2A, B9,81, E5, ED, 42, E5, CI, El, 3A, 8,094A 

2001 DATA BB, 81,77, 2B, 0B, 78, FE, 00, C2, A6,81,79, FE, 00, C8, C3,8<084A 

2002 DATA A6,81,00,00,2E, 00,8,0155 


7.4.5 Hexlader: BSW1TCH.HEX für den CPC 6128 

100 REM BSWITCH.HEX 
110 ' 

120 MEMORY 8<7FFF 
130 ' 

140 a= 33213:e= 33220:zb=2000 

150 FOR 1 =a TO e:READ d*:lF LEFT$ (d$, 1) <>"8," THEN 180 
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160 IF psOVAL(di) THEN PR!NT"Fehler Zeile " 2 b:END 

170 ps=0:di = "": IF i=e THEN 230 ELSE l=i-l:zb=zb+l:G0T0 210 

180 di = "S<"tdi 

190 POKE 1,VAL(di):ps=ps+VAL(di) 

200 PRINT VAL(di) 

210 IF i < e THEN NEXT 1 
220 ' 

230 SAVE"bswitch.bin",b,*<81BD,6 
240 ’ 

2000 DATA dd,7e,00,cd,5b,bd,c9,«<0409 


Der Hexlader fUr das komplette Maschinenprogramm der 
Date 1verwaItung mit RAM-Disk fUr den CPC 6128. 


7.4.6 Hexlader: RAMD1SK2.HEX 


100 REM RAMDISK2.HEX 
110 ’ 

120 MEMORY &7FFF 
130 ' 

140 a= 32768:e= 33220:zb=1001 

150 FOR 1 =a TO e: READ d$:IF LEFTi < di, 1 > <>"«<” THEN 180 
160 IF psOVAL(di) THEN PRINT"Fehler Zelle "zb:END 
170 ps=0:dt = "" : IF i=e THEN 230 ELSE i = 1 -1 :zb=zb+l :G0T0 210 
180 di = "8i"+di 


190 POKE 1,VAL(di):ps=ps+VAL(dt) 

200 PRINT VAL(di) 

210 IF 1 < e THEN NEXT 1 
220 ’ 

230 SAVE"ramdisk2.inpg",b,«<8000,8<lC4 
240 ' 

1001 DATA ED,4B,71,80,11,7F,80,2A,75,80,22,79,80,3A,73, 

1002 DATA 32, 74,80, 1A, ED, Bl,C2,6A,80,2B,22,75,80,22, 7D, 

1003 DATA 22,79,80,3A,73,80,32,74,80,1A,ED,Bl,C2,6A,80, 

1004 DATA E5,2A,79,80,23,E5,Dl,El,E5,ED,52,El,Dl,22,79, 

1005 DATA CA,4D,80,2A,75,80,23,22,75,80,03,00,80,22,7B, 

1006 DATA 3A,74,80,30,32,74,80,FE,00,CA,60,80,13,C3,29, 

1007 DATA ED,5B,73,80,ED,52,22,77,80,C9,21,00,00,22,77, 

1008 DATA C9, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 

1009 DATA 00,00,00,00,00,00,00,00,00, 

1010 DATA 00,00,00,00,00,00,00,00,00, 

1011 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 

1012 DATA 00,00,00,00,00,00,00,00,00,00,00,3A,91,81,CD, 

1013 DATA BB,3A,8E,81,F5,CD,72,BB,Fl,32,8E,81,3A,8F,81, 

1014 DATA CD,6F,BB,Fl,3C,32,8F,81,2A,90,91,7D,FE,00,C8, 

1015 DATA 22,90,81,CD,60,BB,2A,95,81,77,23,22,95,81,03, 


00 , 00 , 00 , 00 , 00 , 00 , 
00 , 00 , 00 , 00 , 00 , 00 , 


80,&06A0 
80,&06EB 
D5.&07A7 
80,8<09B3 
80,«<0650 
80,&06B8 
80,4i0696 
00,&00C9 
00, «<0000 
00, «<0000 
00, «<0000 
B4,«,02CD 
F5, «<0964 
2B, «<080F 
CC, «<07BC 
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1016 DATA 

1017 DATA 

1018 DATA 

1019 DATA 

1020 DATA 

1021 DATA 

1022 DATA 

1023 DATA 

1024 DATA 

1025 DATA 

1026 DATA 

1027 DATA 

1028 DATA 

1029 DATA 


80,3A,91,81,CD,B4,BB,2A,95,81,7E,23,22,95,81,CD, «<07EE 
5D,BB,2A,90,81,7D,FE,00,C8,2B,22,90,81,C3,F7,80,«<082E 
3A, 91,81, CD, B4, BB, CD, 78, BB, CD, 75, BB, CD, 8A, BB, CD, «<0A64 
06,BB,4F,CD,8D,BB,79,FE,0D,C8,FE,E0,CA,8A,81,FE,&0A22 
F2, CA, 56,81, FE, F3, CA, 6C, 81, FE, 7F, F2, 16,81, FE, 20,8.0A5F 
FA,16,81,CD,5A,BB,CD,78,BB,3A,93,81,3C,57,7C,BA,«<088A 
CA, 82, 81, C3, 16,81,3E, 08, 4F, CD, 78, BB, 3A, 92, 81,57, «<0760 
7C, BA, CA, 16,81,79, CD, 5A, BB, C3, 16,81,3E, 09, 4F, CD, «<07AF 
78, BB, 3A, 93,81,57, 7C, BA, CA, 16, 81,79, CD, 5A, BB, C3, «<088D 
16,81,3E, 08, CD, 5A, BB, C3, 16,81,32,94,81, C9, 01,01, «<062B 
01,07, 05,06, 00, 00,00,2A, 95, 81,2B, E5, CI, 2A, B9,81, «<0488 
E5, ED, 42, E5, CI, El, 3A, BB, 81,77, 2B, 0B, 78, FE, 00, C2, «<08F6 
A6, 81,79, FE, 00, C8, C3, A6, 81,00, 00, 2E, 00, DD, 7E, 00, «<06D9 
CD, 5B, BD, C9, «<02AE 


Nun folgen noch die Assemb1 er-Listings, auch diesmal 
komplett, obwohl außer der Adressen-Änderung nur der 
Bankschalter hinzukam. Aber durch den kompletten Ab¬ 
druck haben Sie bessere Vergleichsmöglichkeiten bei 
Fehlern und vor allem helfen diese auch besser zum 
Verstehen der Programme. Sie können also die Adressen 
des Basic1istings direkt umsetzen. 

Entfallen sind aber die Erklärungen der Labels, diese 
können bei den Assemb1 er-Li st 1ngs von RAMD1SK1 nachge¬ 
lesen werden. 

7.4.7 Assembler-Listing: SUCHER.EDI (6128) 


» SUCHER.EDI * 

* (c) 1986 by Lothar Miedel » 

« - • 

« Dieses Maschinen-Programm sucht Uoerter » 
» (=ASCI1-Fo1 gen) im Speicher des CPC * 


org «<8000 


8000 

ED 

4B 

71 80 

START 

ld 

bc,(RAMLEN) 

{Laenge Suchbereich 

8004 

11 

7F 

80 


Id 

de,SUCHU 

{Adresse des 1. Buchstaben 

8007 

2A 

75 

80 


ld 

hl,(AKSTART) 

!Startadresse der Suche 

800A 

22 

79 

80 


Id 

(ALTMERK),hl 

iMerker alter Suchbeginn 

800D 

3A 

73 

80 

ERSTPR 

ld 

a,(LAENGE) 

{Laenge des Wortes 

8010 

32 

74 

80 


ld 

(RESTLEN),a 

iin RESTLEN schreiben 

8013 

1A 




ld 

a,(de) 

{ersten Buchstaben laden 
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8014 

ED 

Bl 



cpi r 


lund suchen 

8016 

C2 

6A 

'S) 

CO 


Jp 

nz,NOERFOL 

inichts gefunden 

8019 

2B 




dec 

hl 

;Startadresse erniedrigen 

801A 

22 

75 

80 


ld 

(AKSTART),h1 

laktuel1er Start 

80 ID 

22 

7D 

80 


ld 

(ERSTBYT),hl 

iAdresse erstes Bytes 

8020 

22 

79 

80 


ld 

(ALTMERK),hl 

[auch merken 

8023 

3A 

73 

80 


ld 

a, (LAENGE) 

[Laenge des Wortes 

8026 

32 

74 

80 


ld 

(RESTLEN),a 

!in RESTLEN merken 

8029 

1A 



SUCH2 

ld 

a,(de) 

[Suchzeichen laden 

802A 

ED 

Bl 



cpi r 


;suchen 

802C 

C2 

6A 

80 


jp 

nz, NOERFOL 

[nicht gefunden 

802F 

D5 



PRUEF 

push 

de 

[Position im Wort retten 

8030 

E5 




push 

hl 

[gefundene Position + 1 

8031 

2A 

79 

80 


ld 

hl,(ALTMERK) 

[Merker laden 

8034 

23 




ine 

hl 

[und fuer SBC erhoehen 

8035 

E5 




push 

hl 

;de mit 

8036 

Dl 




pop 

de 

!(ALTMERK)+1 laden 

8037 

El 




pop 

hl 

[gefundene Position +1 

8038 

E5 




push 

hl 

;merken 

8039 

ED 

52 



sbc 

hl, de 

; subtrahieren 

803B 

El 




pop 

hl 

[Position + 1 wieder holen 

803C 

Dl 




pop 

de 

iPosition im Wort 

803D 

22 

79 

80 


Id 

(ALTMERK),hl 

[als alten Wert merken 

8040 

CA 

4D 

80 


Jp 

z,KOMPL? 

;ist Wort komplett? 

8043 

2A 

75 

80 


ld 

hl,(AKSTART) 

[Zeichenfolge falsch 

8046 

23 




inc 

hl 

[ein Byte weiter 

8047 

22 

75 

80 


Id 

(AKSTART),hl 

[merken und dort 

804A 

C3 

00 

80 


JP 

START 

[Suche fortsetzen 

804D 

22 

7B 

80 

KOMPL? 

Id 

(EFIND),hl 

[erste Fundadresse 

8050 

3A 

74 

80 


ld 

a,(RESTLEN) 

[Restlaenge holen 

8053 

3D 




dec 

a 

[Zeichen stimmt in der 

8054 

32 

74 

CO 


ld 

(RESTLEN),a 

[Folge - merken! 

8057 

FE 

00 



cp 

a, 0 

[komplettes Wort gefunden? 

8059 

CA 

60 

80 


jp 

z,ERFOLG 

[ja - Suche erfolgreich 

805C 

13 




inc 

de 

[noch nicht alle Zeichen 

805D 

C3 

29 

CD 

IS) 


jP 

SUCH2 

[deshalb Suche fortsetzen 

8060 

ED 

5B 

73 80 

ERFOLG 

ld 

de,(LAENGE) 

[Laenge des Wortes 

8064 

ED 

52 



sbc 

h 1, de 

! subtrahieren 

8066 

22 

77 

80 


ld 

(FUNDPOS),hl 

[Beginn des Wortes 

8069 

C9 




ret 


[zurueck nach Basic 

806A 

21 

00 

00 

NOERFOL 

ld 

hl,&0000 

[nichts gefunden - keine 

806D 

22 

77 

80 


ld 

(FUNDPOS),hl 

[Fundposition fuer Basic 

8070 

C9 




ret 


[zurueck nach Basic 
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8071 

(0002) 

RAMLEN 

def s 

2 

8073 

(0001) 

LAENGE 

def s 

1 

8074 

(0001) 

RESTLEN 

def s 

1 

8075 

(0002) 

AKSTART 

def s 

2 

8077 

(0002) 

FUNDPOS 

def s 

2 

8079 

(0002) 

ALTMERK 

def s 

2 

807B 

(0002) 

EFIND 

def s 

2 

807D 

(0002) 

ERSTBYT 

def s 

2 

807F 

(0030 

SUCHU 

def s 

60 

80BB 

(80BB) 


end 


Fehler: 

: 00000 

Warnungen: 00000 



Symbo1tabeIle: 

8075 AKSTART 8079 ALTMERK 800D ERSTPR 8060 ERFOLG 807B EFIND 807D ERSTBYT 
8077 FUNDPOS 804D KOMPL? 8073 LAENGE 806A NOERFOL 802F PRUEF 8071 RAMLEN 
8074 RESTLEN 8000 START 8029 SUCH2 807F SUCHW 


7.4.8 Assemb1er-L1stIng: RD.EDI (6128) 


;*«***«*•««*«*«**«**««•«•*»••«*•***•«•»« 
;* RD.EDI » 

;« Maschinenprogramme fuer RAMD1SK.BAS » 
;» • 
}»»«»»»«#«»«»«»»»#»»»«»»«»»**«»*»*»***»» 


;Definitionen 


org &80bb 


CURDI 

equ 

&bb7e:CUREN 

equ 

8<bb7b: RDCHAR 

equ 

bbb60 

SETCOL 

equ 

&bb6f:SETROW 

equ 

i<bb72: STRSEL 

equ 

8<bbb4 

WRCHAR 

equ 

&bb5d:WA 1TCH 

equ 

&bb06:TXTOUT 

equ 

&bb5a 

SETCUR 

equ 

&bb75:PLACUR 

equ 

ibb8a:REMCUR 

equ 

&bb8d 

GETCUR 

equ 

&bb78 






;*»**»**»*****»**«»» RAMRD **»««***»**»«»»**«» 
i* Lesen von Bildschirmzeichen und schreiben * 
;* in RAM-Disk * 
;»»*•»*•*•«»***««*«*•«*»*«•*«•*«»•**««**«««««« 


80BB 

3A 

91 

81 

RAMRD ld 

a,(STREAM) 

;Streamauswah1 

80BE 

CD 

B4 

BB 

ca 1 1 

STRSEL 

lauf rufen 

80C1 

3A 

8E 

81 

Id 

a,(ZEILE) 

;Zei1enpos1tion 

80C4 

F5 



push 

af 

;retten 
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80C5 

CD 

72 

BB 


ca 1 1 

SETROW 

[positionieren 

80C8 

Fl 




pop 

af 

[Position wieder 

80C9 

32 

CD 

m 

81 


id 

(ZEILE),a 

;rueckspeichern 

80CC 

3A 

8F 

81 

ARBEIT 

Id 

a, (SPALTE) 

iSpalte holen 

80CF 

F5 




push 

af 

Jund merken 

80D0 

CD 

6F 

BB 


ca 1 1 

SETCOL 

ISpalte positionieren 

80D3 

Fl 




pop 

af 

[wieder holen 

80D4 

3C 




Inc 

a 

;erhoehen 

80D5 

32 

8F 

81 


Id 

(SPALTE),a 

[neue Spalte merken 

60D8 

2A 

90 

81 


Id 

hl,(ANZAHL) 

[verbliebene Zeichen 

80DB 

7D 




Id 

a, 1 

[Anzahl zum Vergleich in Akku 

80DC 

FE 

00 



cp 

0 

i Ende ? 

80DE 

C8 




ret 

z 

;ja -> Basic 

80DF 

2B 




dec 

hl 

iZeichenanzahl erniedrigen 

80E0 

22 

90 

81 


ld 

(ANZAHL),hl 

[neue Anzahl merken 

80E3 

CD 

60 

BB 


ca 1 1 

RDCHAR 

iLesen und Zeichen in den Akku 

80E6 

2A 

95 

81 


Id 

hl,(RAMDI) 

;RAM-Disk-Adresse holen und 

80E9 

77 




Id 

(h 1), a 

iAkkuinhalt in RAM-Disk 

80EA 

23 




lnc 

hl 

;RAM-Dlsk-Adresse erhoehen 

80EB 

22 

95 

81 


Id 

(RAMDI),hl 

iund merken 

80EE 

C3 

CC 

80 


JP 

ARBEIT 

iweitermachen 





;*##**#**#*########«*##*##########*##*##*#*## 






t «**« 

RAMUR 

##**#######* 





!* Lesen von 

Zeichen aus der RAM-Disk und » 





; # 

schreiben auf den 

Bildschirm * 






80F1 

3A 

91 

81 

RAMWR 

Id 

a,(STREAM) 

[Stream auswaehlen 

80F4 

CD 

B4 

BB 


ca 1 1 

STRSEL 


80F7 

2A 

95 

81 

RAMLES 

Id 

hl,(RAMDI) 

iAdresse der RAM-Disk holen 

80FA 

7E 




ld 

a, (hl) 

[Zeichen aus RAM-Disk lesen 

80FB 

23 




inc 

hl 

[RAM-Dlskadresse erhoehen 

80FC 

22 

95 

81 


Id 

(RAMDI),hl 

[und merken 

80FF 

CD 

5D 

BB 


cal 1 

WRCHAR 

[Zeichen aus Akku schreiben 

8102 

2A 

90 

81 


Id 

hl,(ANZAHL) 

[Zeichenanzahl holen 

8105 

7D 




Id 

a, 1 

[Anzahl in den Akku 

8106 

FE 

00 



cp 

a, 0 

[vergleichen auf Null 

8108 

C8 




ret 

Z 

[zurueck ins Basic 

8109 

2B 




dec 

hl 

[Zeichenanzahl erniedrigen 
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810A 

22 

90 

81 


Id 

(ANZAHL),hl 

iund merken 

810D 

C3 

F7 

80 


JP 

RAMLES 











;«* UED 

- Window-Editor » 







8110 

3A 

91 

81 

UED 

Id 

a,(STREAM) 

iSTREAM holen 

8113 

CD 

B4 

BB 


cal 1 

STRSEL 

iund auswaehlen 

8116 

CD 

78 

BB 

WLOOP 

ca 1 1 

GETCUR 

iCursorposltion holen 

8119 

CD 

75 

BB 


ca 1 1 

SETCUR 

(Cursor setzen 

81 IC 

CD 

8A 

BB 


ca 1 1 

PLACUR 

[Cursor auf erste Position 

811F 

CD 

06 

BB 


ca 1 1 

UAITCH 

iAuf Zeichen warten 

8122 

4F 




Id 

c, a 

iZeichen retten 

8123 

CD 

8D 

BB 


ca 1 1 

REMCUR 

iCursorsymbol entfernen 

8126 

79 




Id 

a, c 

iZeichen wieder holen 

8127 

FE 

0D 



cp 

a, 13 

iist es ENTER (RETURN)? 

8129 

C8 




ret 

z 

ija -> Basic 

812A 

FE 

E0 



cp 

a, 224 

iCopy-Taste ? 

812C 

CA 

8A 

81 


JP 

z.COPY 

(Sprung zur Routine Copy-Taste 

812F 

FE 

F2 



cp 

a, 242 

iist es Cursor links ? 

8131 

CA 

56 

81 


Jp 

z,LINKS 

ija -> Routine 1inks 

8134 

FE 

F3 



cp 

a, 243 

iist es Cursor rechts ? 

8136 

CA 

6C 

81 


Jp 

z,RECHTS 

ija -> Routine rechts 

8139 

FE 

7F 



cp 

a, &7f 

iZeichen groesser 8c7f 

813B 

F2 

16 

81 


Jp 

p,WLOOP 

ija weitermachen 

813E 

FE 

20 



cp 

a, 32 

iZeichen kleiner 32 

8140 

FA 

16 

81 


Jp 

m,WLOOP 

ija weitermachen 

8143 

CD 

5A 

BB 


ca 1 1 

TXTOUT 

iund ausgeben 

8146 

CD 

78 

BB 


ca 1 1 

GETCUR 

iund Cursorposition holen 

8149 

3A 

93 

81 


Id 

a,(RECHTSM) 

(rechten Maximalwert 

814C 

3C 




inc 

a 

ierhoehen 

814D 

57 




Id 

d, a 

iund merken 

814E 

7C 




Id 

a, h 

iaktuelle Position holen 

814F 

BA 




cp 

a, d 

iund vergleichen 

8150 

CA 

82 

81 


JP 

z, WRR 

iWindowposition rechts erreicht 

8153 

C3 

16 

81 


JP 

WLOOP 

i weitermachen 

8156 

3E 

08 


LINKS 

Id 

a, 8 

(Akku mit Backspace laden 

8158 

4F 




Id 

c, a 

iund merken 

8159 

CD 

78 

BB 


ca 1 1 

GETCUR 

iCursor holen 

815C 

3A 

92 

81 


Id 

a,(LINKSM) 

i1inken Grenzwert 

815F 

57 




Id 

d, a 

imerken und mit 

8160 

7C 




Id 

a, h 

iaktue11em Wert 

8161 

BA 




cp 

a, d 

ivergleichen 

8162 

CA 

16 

81 


JP 

z,WLOOP 

(Rand erreicht 
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8165 

79 




ld 

a, c 

iBackspace 

8166 

CD 

5A 

BB 


ca 1 1 

TXTOUT 

iausfuehren 

8169 

C3 

16 

81 


JP 

WLOOP 

; weite machen 

816C 

3E 

09 


RECHTS 

Id 

a, 9 

;Akku mit Cursor vorw 

816E 

4F 




Id 

c, a 

{und merken 

816F 

CD 

78 

BB 


ca 1 1 

GETCUR 

{aktuellen Wert holen 

8172 

3A 

93 

81 


Id 

a,(RECHTSM) 

{rechten Grenzwert 

8175 

57 




ld 

d, a 

{merken 

8176 

7C 




Id 

a, h 

{aktue11en Wert 

8177 

BA 




cp 

a, d 

{vergleichen 

8178 

CA 

16 

81 


JP 

z,WLOOP 

{Rand erreicht 

817B 

79 




Id 

a, c 

{Cursor vorwaerts 

817C 

CD 

5A 

BB 


ca 1 1 

TXTOUT 

!ausfuehren 

817F 

C3 

16 

81 


JP 

WLOOP 

{und weitermachen 

8182 

3E 

08 


WRR 

ld 

a, 08 

{Backspace 

8184 

CD 

5A 

BB 


cal 1 

TXTOUT 

{ausgeben 

8187 

C3 

16 

81 


JP 

WLOOP 

{und weiter 

818A 

32 

94 

81 

COPY 

ld 

(CTASTE),a 

{Flag setzen 

818D 

C9 




ret 


{und zurueck ins Basii 


laden 


{Speicherstellen fuer POKEn von Basic aus 


818E 

01 

ZEILE 

def b 

401 

818F 

01 

SPALTE 

defb 

401 

8190 

01 

ANZAHL 

def b 

401 

8191 

07 

STREAM 

defb 

407 

8192 

05 

LINKSM 

defb 

405 

8193 

06 

RECHTSM 

defb 

406 

8194 

(0001) 

CTASTE 

def s 

1 

8195 

(0002) 

RAMD1 

def s 

2 

Fehler 

: 00000 

Warnungen: 00000 



SymboltabeI1 

80CC ARBEIT 
BB78 GETCUR 
80BB RAMRD 
BB6F SETCOL 
BB5A TXTOUT 
818E ZEILE 


8190 ANZAHL 
8156 LINKS 
80F1 RAMWR 
BB72 SETROW 
BB5D WRCHAR 


BB7E CURD! 
8192 LINKSM 
80F7 RAMLES 
BBB4 STRSEL 
BB06 WAITCH 


BB7B CUREN 
BB8A PLACUR 
816C RECHTS 
BB75 SETCUR 
8110 WED 


818A COPY 
BB60 RDCHAR 
8193 RECHTSM 
818F SPALTE 
8116 WLOOP 


8194 CTASTE 
BB8D REMCUR 

8195 RAMD1 
8191 STREAM 
8182 WRR 
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7.4.9 Assemb1 er-LIs11ng: FILLER.EDI (6128) 

;**««*««**«*<•»*»«••*•«**»*»«•«**«***«««»*«*««*« 


i* FILLER.EDI * 

;« (c) 1986 by Lothar Miedel * 

;*---* 

!* Routine um den durch RAMDISK (Anfang) und * 
;« MEMHIGH (Ende) festgelegten Speicher- » 

;* bereich mit einem von Basic aus zu ueber- * 
;* gebenden Zeichen (FCHAR) aufzufuellen. » 




org 8.8195 

RAMDI defs 2 

org 8,8197 


8197 

2A 

95 

81 

FILLER 

Id 

hl, (RAMDI ) 

;Startadresse der RAM-Disk 

819A 

2B 




dec 

hl 

ierniedrlgen und zum 

819B 

E5 




push 

hl 

iAustausch retten 

819C 

CI 




pop 

bc 

iAustausch = BC uebernehmen 

819D 

2A 

B9 

81 


ld 

hl,(memhig) 

iEndadresse der RAM-Disk 

81A0 

E5 




push 

hl 

; retten 

81A1 

ED 

42 



sbc 

hl ,bc 

! Subtraktion 

81 A3 

E5 




push 

hl 

ifuer Austausch retten 

81 A4 

CI 




pop 

bc 

laustauschen (Laenge in BC) 

B1A5 

El 




pop 

hl 

; Endadresse 

81A6 

3A 

BB 

81 

FUELL 

ld 

a,(FCHAR) 

iFuellerzelchen 

81A9 

77 




Id 

(h 1 ), a 

;in RAM-Diskadresse schreiben 

81AA 

2B 




dec 

hl 

iAdresse erniedrigen 

81 AB 

0B 




dec 

bc 

iLaenge erniedrigen 

81AC 

78 




Id 

a, b 

ipruefen ob 

81AD 

FE 

00 



cp 

0 

;das Ende erreicht 

81AF 

C2 

A6 

81 


JP 

nz,FUELL 

inein - weiterraachen 

81B2 

79 




ld 

a, c 

iweitere Pruefung 

61B3 

FE 

00 



cp 

0 

Job Ende erreicht 

81B5 

C8 




ret 

z 

iJa -> Basic 

81B6 

C3 

A6 

81 


JP 

FUELL 

inein - weiterraachen 

81B9 

(0002 

) 

MEMHIG 

defs 

2 


81BB 

2E 

00 


FCHAR 

def w 

n « 



Fehler: 00000 Warnungen: 00000 
Symbo 1 tabeIle: 

8197 FILLER 81A6 FUELL 81BB FCHAR 81B9 MEMHIG 8195 RAMDI 
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Und nun zum Schluß noch der Bank-Umschalter, dessen 
Werte Sie direkt übernehmen und an den von Ihnen ge¬ 
wünschten Platz für einen einfachen Bankschalter brin¬ 
gen können. 

Da keine absoluten Adressen (außer der Umscha1trout1 ne 
selbst) enthalten sind, können die Werte ln jedem von 
Ihnen frei wählbaren Bereich stehen. 

Sie brauchen also lediglich die sieben Hexadezimal¬ 
werte DD, 7E, 00, CD, 5B, BD, C9 an den von Ihnen ge¬ 
wünschten Platz zu bringen und können dann von Basic 
aus die Bänke durch den Aufruf: 

CALL Adresse,bank 

umschalten wie Sie wollen. Adresse ist die Speicher¬ 
stelle, an der Sie den ersten Wert abgelegt haben. Als 
Bank nur den Wert 0 oder die Werte 4 bis 7 benutzen! 


7.4.10 AssembI er-L1s11ng: BSW1TCH.EDI 

;*«****«**««»««»*»»***«**«** 


;* BSW1TCH.ED1 » 
;• * 
i(c) 1906 by Lothar Miedel » 

;» - * 

;» Ein aeusserst einfacher * 
!* Bankumscha1ter fuer den * 
;* CPC 6128 * 


;•«*»*»*•*»*«•*««*««*•****•* 

;Dle Banknummern sind 0 (=normal) bzw. 4 bis 7 


RAMSW 

equ 

&bd5b 

org &81bd 


81BD 

DD 7E 

00 

BSWITCH ld 

a,(ix+0) 

81C0 

CD 5B 

BD 

ca 1 1 

RAMSW 

81C3 

C9 


ret 



Fehler: 00000 Warnungen: 00000 
Symboltabelle: 

81BD BSWITCH BD5B RAMSW 
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7.5 Programmbesehreibung RAND0MD1 

(für alle CPCs mit AMSDOS) 

Dieses Programm ist das erste von zweien, die Immer 
nur einen Teil der Daten ln den CPC-Spelcher laden. 
Prinzipiell könnte immer ein einziger Sektor einge¬ 
lesen werden. Aber auch auf der Diskette soll der 
Speicherplatz optimal genutzt werden. Deshalb sind 
einige Überlegungen vorher sinnvoll. 

Die Sektorlänge bei den normalen Sektorgrößen auf 
einer Diskette beträgt 512 Byte. Nun könnte pro Ein¬ 
trag ein Sektor reserviert werden, dann wären immer 
soviele Einträge verfügbar, wie die Anzahl der nutz¬ 
baren Sektoren. 

Nehmen wir eine ganz normale 3-Zo11-Diskette im Data- 
□nly-Format. Auf dieser befinden sich neben den frei 
verfügbaren Sektoren auch welche für das Inhaltsver¬ 
zeichnis (Directory). Wenn aber große Datenmengen ver¬ 
arbeitet werden sollen, dann ist es eigentlich nicht 
nötig, durch das Inhaltsverzeichnis vier Sektoren zu 
belegen, sondern es reicht einer! Dadurch gewinnen wir 
3*512=1536 Byte. Aus diesem Grunde werden wir bei den 
Datendisketten fUr dieses Programm ein "Spezia1format" 
verwenden. 

Die andere Überlegung ist aber, wenn wir schon so mit 
Byte knausern, dann wäre es totaler Unsinn, jedem Ein¬ 
trag einen Sektor zu spendieren, wenn dieser ihn gar 
nicht benötigt. Andererseits aber soll auch die Mög¬ 
lichkeit geschaffen werden, mehr als 512 Byte pro Ein¬ 
trag zuzulassen. 

Deshalb wird bei diesem Programm die Diskette optimal 
genutzt, mit nur einer Ausnahme, daß wir noch einen 
Directoryblock zulassen. 

FUr einfache Überlegungen kann man sich die Diskette 
nun als einen großen Massenspeicher mit 40 Spuren (je 
9 Sektoren) vorstellen, bei dem der erste Sektor fehlt 
und, das ist nun das Wichtige, bei dem immer nur ein 
Ausschnitt zu sehen ist. Dieser Ausschnitt ist immer 
ein Sektor. 

Bevor wir nun we1termachen, wird erst einmal die Frage 
geklärt, wieviel Speicherplatz denn in diesem Falle 
zur Verfügung steht. Die Rechnung ist ganz einfach. 
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nämlich 39 (Spuren) * 9 (Sektoren) *512 Byte plus eine 
Spur * 8 Sektoren * 512 Byte. 

Das ergibt eine fUr Daten zur Verfügung stehende Kapa¬ 
zität von 179712 plus 4096 = 183808 Byte und das Ist 
auch die Zahl, die Sie beim Maskengenerator in Zelle 
2450 als eines der Datastatements finden! 

Die Anzahl der möglichen Einträge in eine derartige 
Datei ist deshalb die Integerzahl der Division 

Zur Verfügung stehende Bytes/Zeichenzahl pro Eintrag. 

Der Rest geht ln diesem Falle verloren. Im ungünstig¬ 
sten Fall hat der Rest den Wert: 

Anzahl der Zeichen pro Eintrag minus 1. 

Um das Programm zu verstehen, sind aber noch weitere 
Überlegungen wichtig. Nehmen wir an, daß ein Eintrag 
500 Zeichen Länge haben soll, dann beginnt der erste 
Eintrag in Spur 0, Sektor 1, Byte 0 (oder 1 - das ist 
nur eine Betrachtungsweise), der zweite beginnt eben¬ 
falls in Spur 0, Sektor 1, aber eben bei Byte 500 und 
erstreckt sich bis in den zweiten Sektor hinein. Bei 
anderen Eintrags1ängen, die nicht genau einer Sektor¬ 
länge entsprechen, gilt vergleichbares. 

Bei Eintrags1ängen größer als eine Sektorlänge, z.B. 
1008, kann sich deshalb ein Eintrag nicht nur Uber 
zwei, sondern insgesamt Uber drei Sektoren verteilen! 
Um in einem derartigen Falle aber alle Daten des Ein¬ 
trages im CPC zu haben, müssen alle drei Sektoren ein¬ 
gelesen werden! 

Das ist der Grund, weshalb Sie im Programm drei Lese¬ 
oder Schreibzugriffe pro Datenzugriff finden! Je nach 
Eintrags1änge können diese Basic-Zeilen modifiziert 
werden. 

Bis zu einer Eintrags 1änge von 1023 Byte kann das Pro¬ 
gramm aber unverändert belassen werden. Da ich davon 
ausgehe, daß dies für übliche Anwendungsfälle reicht, 
werden die wenigsten von Ihnen das Basic-Programm ver¬ 
ändern müssen und können deshalb direkt mit dem abge¬ 
druckten Programm arbeiten. 
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Zwei wichtige Punkte sollen nicht vergessen werden. 

1. Die Maschinenroutine für den Diskettenzugriff ist 
insgesamt zweimal vorhanden und dies auch in zwei 
verschiedenen Versionen. Dies soll helfen, wenn 
mit einem anderen Disketten-Betriebssystem als 
AMSDOS gearbeitet werden soll. Bei diesem Programm 
kommt die erste Version, bei RAND0MD2 die zweite 
Version zum Einsatz, um zu zeigen wie es geht! 

2. Beim Einsatz dieses Programmes benötigt die Dis¬ 
kette ein ganz spezielles Format, diese Formatier¬ 
routine finden Sie im Abschnitt der Hilfs- und Zu¬ 
satzprogramme! 

Es wäre möglich, auch noch mehr Spuren als die 
normalerweise zugelassenen zu benutzen, damit mir 
aber niemand - weil seine Diskettenstation defekt 
wurde - einen Vorwurf machen kann, unterbleibt 
selbst das Aufzeigen wie es geht. Der Hinweis, daß 
es geht, muß reichen! 


Nun zur Beschreibung des Programmes. 

Die Zeilen bis 450 sind mit denen der Programme RAM- 
DI SKI.BAS und RAMDISK2.BAS vergleichbar. Nur sind Wer¬ 
te anders bzw. es sind noch welche hinzugekommen. Von 
besonderem Interesse sind die Werte &84 und &85 in 
Zeile 450, dies sind die Befehle für Lesen und Schrei¬ 
ben von einzelnen Sektoren. 

Ebenso sind die Zuordnungen für drivel und drive2 für 
Spezialisten interessant, die damit Daten von einem 
Laufwerk auf ein anderes übernehmen können. 

Auch ist es möglich die Daten nur auf dem Zweitlauf- 
werk zu verarbeiten, dann braucht man die Programm¬ 
diskette nicht gegen die Datendiskette auszutauschen. 
Da derartiges aber nicht der Regelfall sein dürfte, 
soll es bei diesem Hinweis bleiben. 

Es ist wichtig zu bemerken, daß in diesem Programm - 
im Gegensatz zu den anderen - keine Offsetmöglichkeit 
mittels der Variablen "basis" vorgesehen ist. Wer dies 
haben will, kann bei den anderen Programmen "spicken". 

Die Zeilen 490 bis 1140 entsprechen auch in etwa den 
in RAMDISK1 und RAMDISK2 verwendeten, nur die Zeilen- 
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nummern haben sich teilweise geändert, die Grundstruk¬ 
tur ist aber gleich. 

Daß deshalb, weil bei dieser Art von Dateiverwa1tung 
keine Binärfiles gelesen oder geschrieben werden 
müssen, die in anderen Programmen dafür vorhandenen 
Basic-Zeilen entfallen sind, durfte jedem verständlich 
sein. Dafür sind aber andere hinzugekommen und diese 
sollen nun besprochen werden, denn Erklärungen zur 
Grundstruktur des Programmes finden Sie in den Be¬ 
schreibungen der anderen und im Prinzip mußte ich hier 
nur alles mit anderen Zeilennummern wiederholen. 

In Zeile 1270 wird der Befehl fUr den Diskettenzugriff 
- in diesem Falle "schreiben" - definiert, da durch 
den Maschinensprache-Aufruf CALL befsuch,befeh 1 die 
Adresse fUr den RCM-Einsprung und dessen ROM-Selekt 
(ROM-Nummer) gefunden werden soll. Durch das Maschi¬ 
nenprogramm werden diese beiden gefundenen Werte 
gleich in entsprechende Speicherstellen geschrieben, 
die dann durch die Routine die durch 1280 angesprungen 
wird, als Adresse fUr den Einsprung und als ROM-Aus- 
wahl-Nummer Übernommen werden. 

Was geschieht aber nun in Zeile 1280? An die von dort 
angesprur.gene Routine werden die Parameter fUr den 
Bufferanfang (wohin der Sektor eingelesen werden 
soll), das Sektorformat (sfl) des ersten einzu1esenden 
Sektors, die Spurnummer (trackl) und die Laufwerks¬ 
nummer Ubergeben und der Sektor wird eingelesen. Das 
Gleiche geschieht auch in den Zeilen 1310 und 1320 
aber eben fUr den zweiten und dritten Sektor. Nur die 
Werte sind andere. 

Neu sind auch die Zeilen 1820 bis 1980. In diesen er¬ 
folgt die Berechnung der Spuren, der Sektorenformate, 
des Offsets usw. Sie dienen also fUr die Lese- und 
Schreibzugriffe als Unterroutinen. Die Zeile 1980 ist 
mit 1280 zu vergleichen, nur hat sich der Befehl ge¬ 
ändert . 

Durch die Zeilen 2000 und 2010 werden während des Zu¬ 
griffs die erste Spur und der erste Sektor fUr den 
Zugriff auf dem Bildschirm ausgegeben. 

Die Zeilen 2050 bis 2060 fuhren wieder den Befehl aus. 

Warum ggf. drei Zugriffe erfolgen, wurde eingangs 
schon erklärt. 
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7.5.1 Programm RAND0MD1■BAS 
100 '*»»**»*»**»«****»«»»»#»*»*»*»*******««** 


110 •» » 

120 '* RAND0MD1.BAS « 

130 ’*_« 

140 •* * 

150 ’» Copyright by Lothar Mledel 1986 * 

160 '» * 


170 ’ *»»***»*«#***»***»*»*»«»*•**»(**»*»*****» 

180 ’ 

190 MODE 2:MEMORY &7FFF 
200 ' 

210 'Fenster definieren 

220 WINDOW #0,2,79,5,22:WINDOW 11,2,79,1,1 
230 WINDOW #2,61,78,l,l:WIND0W #3,2,78,3,3 
240 WINDOW #4,60,78,24,24: WINDOW #5,2,50,24,24 
250 WINDOW #6,60,78,15,20 
260 ’ 

270 'Rahmen zeichnen 

280 DRAW 0,380:DRAW 639,380:DRAW 639,349:DRAW 0,349:DRAW 0,35 
290 DRAW 639,35:DRAW 639,379:DRAW 639,0:DRAW 0,0 

30 0 •---- 

310 PRINT#1,CHR#(24) "Random-Datelverwaltung mit Dl SK"CHR$(24) 

320 PR I NT#3, "Lade das Maschinenprogramm" :LOAD"randomdl. mpg", 8,8000 
330 GOSUB 530:'Maskendaten holen 
340 ' 

350 'Definitionen 

360 Inv#=CHR*<24):norm»=lnv* 

370 zei lem=8<818E:mspal te=zei 1 em + 1 :manzahl=zel I em+2:stream=zel lem+3 
380 I inksm=stream+l: rechtsm=stream+2: memhig=8<81B9 :fchar=S,81BB 
390 f i 1 I er=8,8197: zeichen=8,2E: ramd i=zellem+7:ctaste=8<8194 
400 ramrd=8<80BB: ved=8<8110: ramwr=8,80Fl: f undpos=8,8077: suchwor t =8,807F 
410 suche = 8,8000: raml en=8<8071: 1 aenge=8<8073:aktstart=8,8075 
420 beginn=VAL(buffanf*)+2"16 

430 ramhigh=INT(beginn/256):ramlow=beginn-ramhigh*256 

440 zeile = l:spalte = l: s tr = 7 :bef such=8>81BD:exe=8,81D4 

450 1 esen=8<84: sehr eiben=8,85 :seclen=512:secoff = l:drivel=0:drive2=0 

460 ' 

470 '»****«**«»***»*»«««*«»#*»**«*»»**«»»*»***««»««»»«»***»»»»*««***»** 
480 ' 

490 POKE memhi g, 8<FF:P0KE memhi g + 1,8<9F :P0KE ramdi, 8,0: POKE ramdi + 1,8,90 
500 POKE fchar,zeichen:CALL fiIler:G0T0 710 

510 ,- 

520 'Maskendaten lesen 

530 PRINT#3,"Lese die Maskendaten 

540 OPENIN"randomdl.msk" 

550 INPUT #9,buffanf$,buffend$,eintraege,off,fe1 der 
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560 buffanf=VAL(buffanf»):buffend=VAL(buffendt) 

570 1F buffend<0 THEN buf f end=buf fend+2''16 
580 diff=buffend-buffanf+1 

590 DIM fenam*(feI der),feldlen(felder),xposi(felder),yposi(felder) 
600 DIM fe1dinh*(fei der) 

610 FOR i = 1 TO feI der 
620 INPUT #9,fenam*(1) 

630 INPUT #9,fe1d1en(1) 

640 benutzt=benutzt+feId1en(1) 

650 INPUT #9,xpos1(1) 

660 INPUT #9,ypos1(1) 

670 NEXT 1 

680 CL0SEIN:PRINTI3,inv* "Maske gelesen - Ausgabe der Maske" norm* 
690 RETURN 

700 •.......-.. 

710 FOR j = 1 TO feI der 

720 LOCATE xposi<j),yposi(j ) 

730 PRINT fenam*(J) 

740 NEXT j 

750 ------ 

760 PRINT 13,"Auf geht’s ! 

770 LOCATE #1,47,1:PRINTI1,"Dateleintraege: "eintraege"»"off 
780 PRINTH5,"Datendiskette elnlegen und g fuer goto eingeben! 

790 GOTO 910 
800 ’ 

810 PRINT #3,inv$"G0T0 _"inv* 

820 INPUT »5,"Eintragsnummer"inr*:enr*=LEFT*(nr»,6) 

830 IF LEN(nr*)<l THEN 820 

840 IF ASCILEFT*(nr*,1))>57 THEN 820 

850 IF ASC(LEFT*(nr»,1))<48 THEN 820 

860 nr=VAL(nr*>:G0T0 1030 

870 ’ 

880 CLS #3:PR I NT #3,inv* "Daten gueltig! Bitte Ihre Eingabe!" norm* 
890 CLS #5:PRINT #5,"Eintragsnummer: "enr" "HEX*(begad) 

900 ’ 

910 x*=L0WER*(INKEY*):IF x*="" THEN 910 

920 IF x*="e” THEN 1760 

930 IF x*="f" THEN 1430 

940 IF x*="g" THEN 810 

950 IF ASC(x*)=224 THEN 1180 

960 IF ASC(x*)<240 THEN 910 

970 IF ASC(x*)>243 THEN 910 

980 IF ASC(x*)=243 THEN enr=enr+l 

990 IF ASC(x*)=242 THEN enr=enr-l 

1000 IF ASC(x*)=240 THEN enr=enr+10 

1010 IF ASC(x*)=241 THEN enr=enr-10 

1020 nr=enr 

1030 IF nr<l THEN nr=l 
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1040 ' 

1050 IF nr>elntraege THEN nr=eintraege 
1060 enr=nr 
1070 ' 

1080 GOSUB 1810 
1090 'Leseschleife 

1100 POKE stream,str:zz=0:FOR i = 1 TO felder 
1110 beginn=begad+zz:zz=zz+feldlen(i) 

1120 zeile=yposi(i):anzahl=feldlen(i)-l 

1130 ramhigh=INT(beglnn/256):ram1ow=beginn-ramhigh*256 

1140 WINDOW #7,xposi(i)+16,xposi(i>+feId1en(i)♦16,zeiIe+4,zei1e+4:CLS #7 
1150 GOSUB 1680:CALL ramwr:NEXT 1:GOTO 880 

1160 '... 

1170 'Aendern 

1180 PRINT #3,invt"Bitte Ihre Eingaben'"invi:PR 1 NT »5,"Aendern" :PRI NT *4,nr 
1190 POKE stream,str:zz=0 
1200 FOR i = 1 TO felder 

1210 beginn=begad+zz:zz=zz+feldlen(i):zeile=yposi(i):anzahl=feldlen(i)-l 

1220 ramhigh=INT(beginn/256):ramIov=begInn-ramhlgh*256 

1230 WINDOW #7,xposK1)+16,xposi(i)+fe1dlen(1)+17,zeile+4,zelle+4 

1240 GOSUB 1740:CALL WED 

1250 ' 

1260 anzahl=feldlen(i):GOSUB 1660:CALL ramrd:NEXT 1:PRINT *5 

1270 befehl=schreiben:CALL befsuch,befeh I 

1280 CALL exe,buffanf,sf1,trackl,drive2 

1290 IF track2>39 THEN 1330 

1300 IF track3>39 THEN 1330 

1310 CALL exe,buffanf+i200,sf2,track2,drive2 

1320 CALL exe,buffanf+&400,sf3,track3,dr1ve2 

1330 CLS H4:G0T0 880 

1340 ’ 

1350 'Fehlerbehandlung 

1360 PRINT (I3,inv$ "Fehler! "normt: 

1370 PRINT #5,invt" Bitte Taste ’j' oder ’n’ druecken!"1nvt:PR 1 NT CHRt(7); 

1380 xt=L0WERt(INKEYt):IF xt="" THEN 1380 

1390 IF xt<> "j" AND xt<> "n" THEN 1380 ELSE CLS 15:RETURN 

1400 CLS #3 

1410 RETURN 

1420 ’---- 

1430 PRINT #3,invt"Suchen: "Invt" Bitte geben Sie die Zeichenfolge ein! " 

1440 INPUT #5,sucht:IF LEN <sucht)=0 THEN svt=swt ELSE swt=sucht 

1450 wlaenge=LEN(swt):IF wlaenge>56 THEN swt=LEFTt(swt,56):G0T0 1450 

1460 FOR i = 1 TO wlaenge:POKE suchwort + i- 1, ASC(MI Dt(swt,i,1)):NEXT i 

1470 POKE 1aenge,wIaenge 

1480 stand=begad 

1490 ' 

1500 sthi=INT(stand/256):stlo=stand-sthi*256 
1510 rest=off+l 
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1520 ramI hi = I NT(rest/256): ram 1Io=rest-ramI hi»256 
1530 ' 

1540 POKE aktstart,stlo:P0KE aktstart+1,sthi 
L550 POKE ramlen,ram!lo:P0KE ramIen+1,ramI hi 
1560 ' 

1570 CALL suche:fs=PEEK(fundpos)+PEEK(fundpos*1)«256 

1580 1F fs<>0 THEN IF fs>=begad+off THEN enr=enr+l:G0T0 1020 

1590 IF fs<>0 THEN 1020 

1600 ' 

1610 PRINT #5,"Eintragsnummer: "enr 

1620 IF enr =eintraege THEN IF fs>i97FF»2*16 THEN 1650 
1630 enr=enr+l:!F enr > eintraege THEN 1650 ELSE GOSUB 1810 
1640 GOTO 1480 

1650 enr=elntraege:PRINT #3,inv$"Nlcht gefunden !"inv*:G0SUB 1370:GOTO 1070 

1660 '.-.-.-...... 

1670 'Lesen aus Window 7 und schreiben in RAM-Disk 

1680 zelle=l:spaIte=l:P0KE zellem,zelle 

1690 POKE manzahI,anzahI:POKE mspaIte,spaIte 

1700 POKE ramdl,ramlow:POKE ramdi+1,ramhigh 

1710 IF PEEKlctaste)=224 THEN 1 = felder 

1720 POKE ctaste,0:RETURN 

1730 ' 

1740 I inks = 16: rechtste 1 d Ien( 1) 

1750 POKE stream,str:POKE Ilnksm,1:POKE rechtsm,rechts:RETURN 
1760 PRINT #3,"Programm beenden ???" 

1770 GOSUB 1370 
1780 IF x*="n" THEN GOTO 1070 
1790 IF x*="j" THEN MODE 2:END 
1800 ' 

1810 CLS I3:PR1NT #3,invt"Moment bitte!"inv$ 

1820 bytstandl=enr»off-off:bytstand2=bytstandl+seclen 
1830 bytstand3=bytstand2+secIen 

1840 hilfsnrl=INT(bytstandl/seclen):secnrl=hilfsnrl+l 
1850 secnr2=secnrl+l 
1860 secnr3=secnrl+2 

1870 sfl=8<Cl + secnrl MOD 9: sf 2=8.C1+ secnr2 MOD 9: sf3=iCl + secnr3 MOD 9 
1880 trackl=INT((bytstandl+secoff»secIen)/(seclen»9)) 

1890 track2=INT((bytstand2+secoff»seclen)/(seclen«9>) 

1900 track3=INT<(bytstand3+secoff»seclen)/(seclen*9)) 

1910 ' 

1920 secbytes = (secnrl-1)«secIen 
1930 bytes=enr*off-off 
1940 offl=bytes-secbytes 
1950 IF enr >1 THEN offl=offl 
1960 IF enr =1 THEN offl=0 
1970 ' 

1980 befeh 1 = 1esen:CALL befsuch,befehl 
1990 ' 
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2000 PRINT #5,"Trackl: "trackl" "i 
2010 PRINT #5,"Sektor: "HEX$(sfll" "! 

2020 CALL exe,buffanf,sfl,trackl,drivel 

2030 IF track2>39 THEN RETURN 

2040 IF track3>39 THEN RETURN 

2050 CALL exe, buffanf+&200, sf2, track2,drivel 

2060 CALL exe,buffanf+&400,sf3,track3,dr1vel 

2070 buffoff=offl:begad=buffanf+buffoff+2*16 

2080 RETURN 


Nun folgen die Ladeprogramme fUr die verschiedenen 
Maschinenroutinen. 

FUr das Date 1verwa1tungsprogramm RAND0MD1 wird neben 
den Maskendaten nur der Binärteil, der durch RDKPL.HEX 
erzeugt wird, benötigt. Die anderen Lader sind wieder 
nur fUr Ihre eigenen Date 1verwa1tungsprogramme ge¬ 
dacht, falls Sie mit diesen Routinen arbeiten wollen! 


7.5.2 Das Ladeprogramm D1SC1.HEX 

100 REM Dl SCI.HEX 
110 ’ 

120 MEMORY S.7FFF 
130 ' 

140 a = 33213:e= 33305:zb=2000 

150 FOR i =a TO e:READ d*:1F LEFT$(d$,1)<>"&" THEN 180 
160 IF psOVAL(dt) THEN PRINT"Fehler Zeile "zb:END 
170 ps=0:d*=”":1F i=e THEN 230 ELSE 1=1-1:zb=zb+l:G0T0 210 
180 d*="&"+d$ 

190 POKE 1,VAL(d*l:ps=ps+VAL(d*> 

200 PRINT VAL(d$) 

210 IF 1 < e THEN NEXT 1 
220 ’ 

230 SAVE"discl.bln",b,fc81BD,i5A 
240 ' 

2000 DATA DD, 6E, 00, DD, 66,01,22, F2, 81,21, F2, 81, CD, D4, BC, 22, Si0837 

2001 DATA EE, 81,79, 32, F0,81,C9,DD,7E,00,5F,DD,7E,02,57,DD,&089F 

2002 DATA 7E,04,4F,DD,6E,06,DD,66,07,DF, EE, 81,D8,32,Fl,81,&0836 

2003 DATA C9, 00, 00, 00,00, 00,00,00,00, C5,02, 00,00, CI, 02,00,8.0253 

2004 DATA 00,C6,02,00,00,C2,02,00,00,C7,02,00,00,C3,02,00,&031A 

2005 DATA 00, C8, 02, 00, 00, C4, 02, 00,00, C9,02, 00, S<025B 

Der vorstehende Lader erzeugt das Diskettenzugriffs¬ 
programm der ersten Version und der nun folgende die 
andere. 
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7.5.3 Das Ladeprogramm D1SC2.HEX 

100 REM D1SC2.HEX 
110 ’ 

120 MEMORY &7FFF 
130 ' 

140 a = 33304: e- 33343:zb=2000 

150 FOR 1 =a TO e : READ dtMF LEFTi (di, 1) <>"«," THEN 180 
160 IF psOVAL(di) THEN PRINT"Fehler Zelle "zb:END 
170 ps=0 :di = "":IF l=e THEN 230 ELSE i = 1 - 1:zb = zb+1:G0T0 210 
180 di = "*<" + di 

190 POKE i,VAL(di):ps=ps+VAL(di) 

200 PRINT VAL(d$) 

210 IF 1 < e THEN NEXT 1 
220 ' 

230 SAVE"dlsc2.bin",b,«<8218,&2F 
240 ' 

2000 DATA 3A, 42,82,32,42,82,21,3E, 82, CD, D4, BC, 22,3F, 82,79, «<068E 

2001 DATA 32,41,82,21,42,82,5E,21,43,82,56,21,44,82,4E,2A,&04D3 

2002 DATA 46,82, DF, 3F, 82, C9,84, «<03B5 


7.5.4 Das Ladeprogramm DISCKPL.HEX 

100 REM DISCKPL.HEX 
110 ’ 

120 MEMORY &7FFF 
130 ' 

140 a= 33213:e= 33343:zb=2000 

150 FOR 1 =a TO e:READ d*:IF LEFT*(di,1)<>"&" THEN 180 
160 IF psOVAL(di) THEN PRINT"Fehler Zeile "zb:END 
170 ps=0:dt = "":IF i=e THEN 230 ELSE i = i-1:zb = zb4l:G0T0 210 
180 di="i"+d$ 

190 POKE i,VAL(d$):ps=ps+VAL(di) 

200 PRINT VAL<dt) 

210 IF i < e THEN NEXT 1 
220 ' 

230 SAVE"d i sckp l.bin",b,i81BD, 8<82 
240 ' 

2000 DATA DD, 6E, 00, DD, 66,01,22, F2,81,21, F2,81, CD, D4, BC, 22,8.0837 

2001 DATA EE,81,79,32,F0,81,C9,DD,7E,00,5F,DD,7E,02,57,DD,&089F 

2002 DATA 7E, 04,4F, DD, 6E, 06, DD, 66,07, DF, EE, 81, D8,32, Fl, 81,8<0836 

2003 DATA C9, 00, 00,00, 00, 00, 00, 00,00, C5,02, 00, 00, CI, 02, 00, J<0253 

2004 DATA 00,C6,02,00,00,C2,02,00,00,C7,02,00,00,C3,02,00,&031A 

2005 DATA 00, C8, 02,00, 00, C4, 02, 00,00, C9,02, 3A, 42, 82,32,42,i03CD 

2006 DATA 82,21,3E,82,CD,D4,BC,22,3F,82,79,32,41,82,21,42,«<0674 

2007 DATA 82,5E, 21,43, 82,56, 21,44,82,4E, 2A, 46,82, DF, 3F, 82, «<05E3 

2008 DATA C9,84,«,014D 
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7.5.5 Das Ladeprogramm RDKPL.HEX 


100 REM RDKPL.HEX 
110 ' 

120 MEMORY S.7FFF 
130 ' 

140 a= 32768:e= 33342:zb=2000 

150 FOR i =a TO e :READ d$:IF LEFT$ (d$, 1 > <>"8," THEN 180 
160 IF psOVAL(dt) THEN PRINT"Fehler Zeile "zb:END 
170 ps=0:d*="": IF i=e THEN 230 ELSE i = i-1 :zb = zb + l :G0T0 210 
180 d$ = "8." + d$ 

190 POKE i,VAL(d*):ps=ps+VAL(d*) 

200 PRINT VAL(d$) 

210 IF I < e THEN NEXT i 
220 ' 


230 SAVE"randomdl. mpg", b, «<8000, 8.23D 


240 ' 


2000 

DATA 

2001 

DATA 

2002 

DATA 

2003 

DATA 

2004 

DATA 

2005 

DATA 

2006 

DATA 

2007 

DATA 

2008 

DATA 

2009 

DATA 

2010 

DATA 

2011 

DATA 

2012 

DATA 

2013 

DATA 

2014 

DATA 

2015 

DATA 

2016 

DATA 

2017 

DATA 

2018 

DATA 

2019 

DATA 

2020 

DATA 

2021 

DATA 

2022 

DATA 

2023 

DATA 

2024 

DATA 

2025 

DATA 

2026 

DATA 

2027 

DATA 

2028 

DATA 

2029 

DATA 

2030 

DATA 


ED,4B,71,80,11,7F,80,2A,75,80,22,79,80,3A,73,80,8.06A0 

32.74.80, 1A, ED, Bl, C2,6A, 80, 2B, 22,75,80,22, 7D, 80,8.06EB 
22, 79,80,3A, 73, 80,32, 74,80, 1A, ED, Bl, C2,6A, 80, D5, 8.07A7 
E5, 2A, 79,80,23, E5, Dl, El, E5, ED, 52, El, Dl, 22, 79,80, 8.09B3 
CA, 4D, 80,2A, 75, 80,23,22, 75,80, C3,00, 80, 22, 7B, 80, 8.0650 
3A, 74, 80, 3D, 32, 74, 80, FE, 00, CA, 60, 80, 13, C3,29,80, 8.06B8 
ED, 5B, 73,80, ED, 52, 22, 77, 80, C9,21,00,00,22, 77,80, 8.0696 
C9, 00, 00,0g, 00, 00, 00, 00, 00, 00, 00,00,00,00,00,00,8.00C9 
00, 00,00,00,00,00,00, 00,00, 00, 00, 00,00, 00, 00,00, 8.0000 
00,00, 00, 00, 00,00, 00,00, 00, 00, 00, 00, 00, 00,00,00,8.0000 
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,8.0000 
00,00, 00,00, 00, 00, 00,00, 00,00, 00, 3A, 91,81, CD, B4,8.02CD 
BB, 3A, 8E, 81, F5, CD, 72, BB, Fl, 32,8E, 81,3A, 8F, 81, F5, 8.0964 
CD, 6F, BB, Fl, 3C, 32,8F, 81,2A, 90, 81,7D, FE, 00, C8, 2B, 8.080F 

22.90.81, CD, 60, BB, 2A, 95,81,77, 23, 22,95,81, C3, CC, 8.07BC 
80,3A, 91,81, CD, B4, BB, 2A, 95. 81,7E, 23, 22, 95,81, CD, 8.07EE 
5D, BB, 2A, 90,81,7D, FE, 00, C8,2B, 22,90,81, C3, F7, 80,8.082E 
3A, 91,81, CD, B4, BB,CD,78,BB,CD,75,BB,CD,8A,BB,CD,&0A64 
06, BB, 4F, CD, 8D, BB, 79, FE, 0D, C8, FE, E0, CA, 8A, 81, FE, S.0A22 
F2, CA, 56, 81, FE, F3, CA, 6C, 81, FE, 7F, F2, 16,81, FE, 20,8.0A5F 
FA, 16,81, CD, 5A, BB, CD, 78, BB, 3A, 93,81,3C, 57, 7C, BA, 8.088A 
CA, 82,81, C3, 16,81,3E, 08, 4F, CD, 78, BB, 3A, 92,81,57,8.0760 
7C.BA.CA, 16,81,79, CD, 5A, BB, C3, 16,81,3E, 09,4F, CD, 8.07AF 
78, BB, 3A, 93, 81,57, 7C,BA,CA, 16,81,79, CD, 5A, BB, C3,8.088D 
16,81,3E, 08, CD, 5A, BB, C3, 16,81,32,94,81, C9,01,01,8.062B 
01,07,05, 06, 00,00, 00,2A, 95, 81,2B, E5, CI, 2A, B9,81,8,0488 
E5, ED, 42, E5, CI, El, 3A, BB, 81,77,2B, 0B, 78, FE, 00, C2, 8.08F6 
A6,81,79, FE, 00, C8, C3, A6,81,00, 00,2E, 00, DD, 6E, 00,8.06C9 
DD, 66,01,22, F2,81,21, F2,81, CD, D4, BC, 22, EE, 81,79, 8.08D4 
32, F0,81, C9, DD, 7E, 00, 5F, DD, 7E, 02,57, DD, 7E, 04, 4F, 8.0788 
DD, 6E, 06, DD, 66,07, DF, EE, 81, D8,32, Fl, 81, C9,00,00, 8.082E 
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2031 DATA 00,00, 00, 00, 00, 00, C5, 02, 00, 00, CI, 02, 00, 00, C6, 02, J-.0252 

2032 DATA 00,00,C2,02,00,00,C7,02,00,00,C3,02,00,00,C8,02,&031C 

2033 DATA 00, 00, C4, 02, 00,00, C9,02, 3A, 42,82, 32, 42,82,21,3E, 8<03E4 

2034 DATA 82,CD,D4,BC,22,3F,82,79,32,41,82,21,42,82,5E,21,&0694 

2035 DATA 43, 82, 56, 21,44,82, 4E, 2A, 46,82, DF, 3F, 82, C9, &05AB 


Nun folgen die Assemb1 er 11 stIngs. Da die Programmte11e 
fUr den Filler-, RD- und Suchertell mit denen des Pro¬ 
gramms RAMDISK2 identisch sind und lediglich der Teil 
des Bankschalters entfällt, finden Sie hier nur die 
Assemb1 errout1nen fUr den Diskettenzugriff. 


7.5.6 Assemb1 er-LI st Ing: D1SC1.ED1 

;«*»»*»«*»******«*»«*»**»«»* 
;* discl.edi * 

; - « 

;» gedacht fuer Disketten- * 
!» Zugriffe unter AMSDOS * 
;*»*»»*«#»*»»»»»»**»»*«»»»*» 


bsuch equ ibcd4 

org &81bd 

iRoutine zur Befehlssuche 


81BD 

DD 

6E 

00 

Einspl 

LD 

L,(1X+00) 

;Befeh 1sadresse 

81C0 

DD 

66 

01 


LD 

H,(IX+01) 

;an Speicherstel le 

81C3 

22 

F2 

81 


LD 

(CMD),hl 

;Kommando uebergeben 

81C6 

21 

F2 

81 

Einsp2 

LD 

HL.CMD 

;HL nun als Befehlszelger 

81C9 

CD 

D4 

BC 


CALL 

bsuch 

;Befehl suchen 

8 ICC 

22 

EE 

81 


LD 

(FAR),hl 

JAdresse merken 

81CF 

79 




LD 

A, C 

;ROM-Auswah1-Nummer 

81D0 

32 

F0 

81 


LD 

(ROM), A 

Sin ROM merken 

81D3 

C9 




RET 




IRoutine zur BefehIsausfuehrung 


81D4 

DD 

7E 

00 

LD 

A,(1X+00) 

81D7 

5F 



LD 

E,A 

81D8 

DD 

7E 

02 

LD 

A,(1X+02) 

81 DB 

57 



LD 

D, A 

81DC 

DD 

7E 

04 

LD 

A,(1X+04) 
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81 DF 

4F 





LD 

C, A 

81E0 

DD 

6E 

06 



LD 

L,(1X+06) 

81E3 

DD 

66 

07 



LD 

H, (IX+07) 

81E6 

DF 

EE 

81 



RST 

!<18,FAR iBefehl ausfuehren 

81E9 

D8 





RET 

C Jkorrekt ausgefuehrt => Basic 

81EA 

32 

Fl 

81 



LD 

(RUE),a jFehler merken 

81ED 

C9 





RET 


81EE 

(0002) 


FAR 

def s 

2 .Adresse der DOS-Routine 

81F0 

(0001) 



ROM 

def s 

1 ;ROM-Auswah1-Nummer 

81F1 

(0001) 


RUE 

def s 

1 iRueckme1 düng 

81F2 

(0002) 



CMD 

def s 

2 !der gesuchte Befehl 






iFormattabe 1 1 e 







iSle 

dient zur 

Erzeugung des speziellen 






jFormates bei 

der Benutzung von 






iRAND0MD1 


81F4 

00 

00 

C5 

02 


def b 

&00,&00,&c5,&02 

81F8 

00 

00 

CI 

02 


def b 

&00,&00,&cl,&02 

81FC 

00 

00 

C6 

02 


def b 

S>00, &00, &c6, &02 

8200 

00 

00 

C2 

02 


def b 

&00, &00, Sic2, &02 

8204 

00 

00 

C7 

02 


def b 

&00,&00,&c7,&02 

8208 

00 

00 

C3 

02 


def b 

S.00, &00, &c3, &02 

820C 

00 

00 

C8 

02 


def b 

&00,&00,&c8,&02 

8210 

00 

00 

C4 

02 


def b 

&00, &00, S>c4, &02 

8214 

00 

00 

C9 

02 


def b 

&00,&00,&c9,&02 


Fehler: 00000 Warnungen: 00000 
Symbo1tabeIle: 

BCD4 BSUCH 81F2 CMD 81BD EINSP1 81C6 EINSP2 
81EE FAR 81F0 ROM 81F1 RUE 


7.5.7 Assembler-Llstlng: D1SC2.ED1 

;»»*»»»*»***»**»»»*****«**»***** 


;* DISC2.EDI « 
!* Hilfsprogramm fuer alle * 
;* Diskettenstationen « 
;* (auch Vortex-X-Modul) « 


;**x*tt*<t«x««***«***«*«*«***tt**** 
akdrive equ &a702: f indcom equ 8<bcd4 
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org «<8218 


8218 

3A 

42 

82 


Id 

a,(drlve) 

!gewuenschtes Laufwerk 

821B 

32 

42 

82 


ld 

(dr1ve),a 

;merken 

82 IE 

21 

3E 

82 


ld 

hl,befehl 

iBefeh 1 aus Tabe11e 

8221 

CD 

D4 

BC 


ca 1 1 

findcom 

iBefehl Im ROM suchen 

8224 

22 

3F 

82 


Id 

< romadr),h1 

iRomadresse merken 

8227 

79 




Id 

a, c 

iRomse1ect 

8228 

32 

41 

82 


Id 

(romse1),a 

Imerken 

822B 

21 

42 

82 


Id 

h 1, dr1ve 

JAdr fuer Drlve # holen 

822E 

5E 




Id 

e,(hl ) 

inach E uebergeben 

822F 

21 

43 

82 


Id 

h1,track 

JAdr fuer Track II holen 

8232 

56 




Id 

d, (hl ) 

mach d uebergeben 

8233 

21 

44 

82 


Id 

hl,formse 

jFormat + Sector 

8236 

4E 




ld 

c,(hl) 

!ln Reg C 

8237 

2A 

46 

82 


Id 

hl, (buffer) 

jBufferadr ln HL 

823A 

DF 

3F 

82 


rst 

3,romadr 

iweitermachen bei ROMADR 

823D 

C9 




ret 


;und zurueck 

823E 

84 



befehl 

defb 

8.84 


823F 

(0002) 


romadr 

def s 

2 


8241 

(0001) 


romse1 

def s 

1 


8242 

(0001) 


drlve 

def s 

1 


8243 

(0001) 


traok 

def s 

1 


8244 

(0001) 


f ormse 

def s 

1 


8245 

00 



köpf 

defb 

«■00 

imuss auf 00 bleiben! 

8246 

(0002) 


buff er 

def s 

2 



Fehler: 00000 Warnungen: 00000 


Symbo1tabeIle: 




A702 AKDR1VE 

823E 

BEFEHL 

8246 

8244 FORMSE 

8245 

KOPF 

823F 


BUFFER 8242 DRIVE BCD4 FINDCOM 

ROMADR 8241 ROMSEL 8243 TRACK 
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7.6 Programmbeschreibung RAND0MD2 

(für alle CPCs mit VORTEX-X-MODUL) 

Für dieses zweite Programm mit direktem Zugriff gilt 
äquivalent das bei der Beschreibung RAND0MD1 stehende. 
Aber ein paar kleine Unterschiede sind vorhanden, auf 
die hier näher eingegangen werden soll. 

Zunächst einmal ist festzustellen, daß anstelle der 
einseitigen Sehneider-Laufwerke die 40 Spuren haben, 
nun eines mit 80 Spuren vorhanden ist, das auch noch 
zweiseitig arbeitet. 

Um hier nun wieder eine etwas andere Programm-Technik 
zu wählen, ist auch der Sektor fUr das Inhaltsver¬ 
zeichnis den Daten zum Opfer gefallen. Das heißt, ein 
Inhaltsverzeichnis wird überhaupt nicht benutzt. Das 
birgt allerdings auch Gefahren in sich: So könnte 
leicht eine Datendiskette mit Programmen Uberschrieben 
werden, deshalb also ganz besondere Vorsicht walten 
lassen und die Datendiskette ganz auffällig kennzeich¬ 
nen, damit dies nicht geschieht. 

Da die X-Modu1e-Laufwerke sowohl im 3,5-Zoll- als auch 
5,25-Zo11-Format erhältlich sind, sei an dieser Stelle 
erwähnt, daß das Programm mit einem 5,25-Zo11-Laufwerk 
an einem CPC 6128 getestet wurde. Ich sehe aber keinen 
Grund, weshalb es Schwierigkeiten mit anderen CPCs 
oder mit dem 3,5-Zo1 1-Laufwerk geben sollte! 

Doch nun erst zur Frage der Kapazität. 160 Spuren mit 
je 9 Sektoren und pro Sektor 512 Byte, das ergibt eine 
Gesamtkapazität von 737280 Byte. 

Eine Kapazität dieser Größenordnung fUr Daten, sollte 
eigentlich fUr Norma1anwendungen ausreichen. Wem es 
nicht reicht, der sollte sich am besten nach einem 
anderen Computersystem Umsehen oder den Kauf einer 
Harddisc erwägen, denn Disketten-Laufwerke mit noch 
größerer Kapazität wird man auch die nächste Zeit kaum 
zu vernünftigen Preisen erhalten können. Ein weiterer 
Ausweg wäre aber auch noch die Verteilung der Daten 
auf mehrere Disketten. Auch aus diesem Grunde Ist im 
Programm wieder die "basis"-Fest1egung möglich. 

Noch einmal kurz zum Kapazitätswert zurück, dieser ist 
in Zeile 2460 des Maskengenerators zu finden. 
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Größtenteils gilt für dieses Programm das schon bei 
RAND0MD1 stehende. Aber einige Punkte sind doch so un¬ 
terschiedlich, daß diese nun auf geführt werden müssen. 

Zunächst einmal wird die zweite Maschinenroutine fUr 
Di rektzugriffe auf die Diskettenstation verwendet. Da¬ 
durch ergeben sich auch andere Übergabeweisen an das 
Maschinenprogramm. 

Andererseits aber werden alle Sektoren als Datensek¬ 
toren verwendet und deshalb erfolgt auch deren Berech¬ 
nung etwas anders, ln Zeile 350 wird eine Hilfszahl 
berechnet. Sie dient zur Bestimmung wieviele Sektoren 
- im ungünstigsten Falle - eingelesen werden müssen. 
Diese Anzahl wird dann auch immer eingelesen. 

Bei den Definitionen haben sich, durch die Verwendung 
des anderen Maschinenprogrammes fUr das Diskettenhand¬ 
ling, einige Werte - gegenüber RANDAMD1.BAS - ge¬ 
ändert . 

Die Art des Maschinenprogramm-Ansprunges ist anders: 
Dies zeigt beispielsweise die Zeile 880. Der Befehl 
des Diskettenzugriffes wird per POKE abgelegt. Auch 
die Sektor- und Track-Berechnung erfolgt in den Zeilen 
1900 bis 2040 anders. 

Und zu "guter Letzt" zeigen die Zeilen 2080 bis 2150 
auch noch ein anderes Aussehen. 

Bei diesem Programm wird vorausgesetzt, daß ein CPC 
mit dem Erstlaufwerk "Schneider" und mit dem Zweit¬ 
laufwerk "X-Modu1 -Vortex" ausgestattet ist. Deshalb 
wird in die zuständige Speieherste11e mdrive der Wert 
eins geladen. 

Aber ansonsten ist dieses Programm - bis auf kleine 
Unterschiede - wie RAND0MD1.BAS! Nur ein paar Punkte 
sind auch hier noch erwähnenswert, die Diskette wird 
"spezia1 formatiert" und dieser "Formatter" ist im Ab¬ 
schnitt der Hilfs- und Zusatzprogramme zu finden. 

Die Assemb1 er 1istings für dieses Programm finden Sie 
unter der Programmbeschreibung fUr RANDQMD1, da sie 
identisch sind. 

Als Hexlader sind ebenfalls die des anderen Direktzu¬ 
grif f sprogrammes zu verwenden. 
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7.6.1 Programm RAND0MD2.BAS 

100 'HKOIHmMtIlIHHHXHHKIHHHi 
110 '* * 

120 '* RAND0MD2. BAS » 

130 '*_« 

140 '* * 

150 '» Copyright by Lothar Miedel 1986 « 

160 '» » 

170 ’»*#«*»*»*«»»***»*»*»«*»»»»*»«»*«»*«**«*» 

180 ' 

190 MODE 2:MEM0RY «<7FFF:basis = l: secI en=512 
200 ' 

210 'Fenster definieren 

220 WINDOW #0,2,79,5,22:WIND0W #1,2,79,1,1 
230 WINDOW 12,61,78,1,1:WINDOW #3,2,78,3,3 
240 WINDOW #4,60,78,24,24: WINDOW #5,2,50,24,24 
250 WINDOW #6,60,78,15,20 
260 ' 

270 'Rahmen zeichnen 

280 DRAW 0,380:DRAW 639,380:DRAW 639,349:DRAW 0,349:DRAW 0,35 
290 DRAW 639,35:DRAW 639,379:DRAW 639,0:DRAW 0,0 

300 '..-...-.-. 

310 PRINT#1,CHR*<24) "Random-Dateivervaltung mit X-Modul”CHR$(24) 

320 PRINT#3,"Lade das Maschinenprogramm":LOAD"randomdl.mpg",i8000 
330 ' 

340 GOSUB 510:'Maskendaten holen 

350 hi 1fszahI=off+ sec1en-1' Hilfszahl zur Berechnung 

360 anzsec=INT(hi 1fszahI/seclen) +1' Anzahl der einzuIesenden Sektoren 

370 '------. 

380 'Definitionen 

390 zeilem = S(818E:mspalte = zeilem + l: man za h I = zei 1 em+2:stream=zei I em+3 

400 Iinksm = stream+l:rechtsm = stream*2:memhig = 8i81B9:fchar= : Si81BB 

410 filler = 8<8197: ze ichen = &2A :ramdi=zeilem+7:ctaste=8iS194: inv*=CHR$ (24) 

420 ramrd=i80BB :wed = i8110:ramwr = l<80Fl:fundpos=i8077:suchwort =i807F 

430 suche =&8000: ram 1 en=!<8071: I aenge=i8073:aktstart=&8075: mbuf f er=i8246 

440 beginn=VAL(buffanf$):zeile=l:spalte=l:str=7:mformse=&8244 

450 mbef ehl -!<823E: mdr i ve=8<8242:mtrack=8i8243: 1 esen=&84 : schre iben=8i85 

460 '--------- 

470 POKE memhig, 8<FF:POKE memhi g + 1, &9F:P0KE ramdi, &0:POKE ramdi + 1,8,90 
480 POKE fchar,Zeichen:CALL flller:G0T0 690 

490 '---- 

500 'Maskendaten lesen 

510 PRINT#3,"Lese die Maskendaten 

520 OPENIN"randomd2.rask" 

530 INPUT #9, buffanf♦, buffend$,eintraege,off,fe1 der 
540 buffanf=VAL(buffanf*)+2~16:buffend=VAL(buffend$)+2~16 
550 IF buffend<0 THEN buffend = buffend+2"16 
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560 diff=buffend-buffanf+1 

570 D1M fenam*( felder),feldlen(felder),xposi(felder),yposi(fe lder ) 
580 DIM feIdinh*(feider) 

590 FOR i = 1 TO feIder 
600 INPUT #9,fenam*(1) 

610 INPUT #9,fe 1 dIen(1) 

620 benutzt=benutzt+feldlen( 1) 

630 INPUT #9,xposl(1) 

640 INPUT #9,yposi(1) 

650 NEXT 1 

660 CLOSEIN:PR1NTH3,inv* "Maske gelesen - Ausgabe der Maske" inv* 
670 RETURN 

680 ...------ 

690 FOR j = 1 TO feI der 

700 LOCATE xposi(j),yposi(j) 

710 PRINT fenam*(j) 

720 NEXT j 

730 ’..... 

740 PRINT *3,"Auf geht's ! 

750 LOCATE #1,47,1:PR1NT»1,"Dateieintraege: "eintraege"»"off 
760 PRINTH5,"Datendiskette einlegen und g fuer goto eingeben! 

770 x*=L0UER*<INKEY*) : IF x*<>"g" THEN 770 
780 GOTO 920 

790 '.-.....-.-. 

800 PRINT #3,inv*"G0T0 -"inv* 

810 INPUT #5,"Eintragsnummer"inr*:enr*=LEFT*(nr*,6) 

820 IF LEN(nr* XI THEN 810 
830 IF ASC(LEFT*(nr»,1))>57 THEN 810 
840 IF ASC(LEFT»(nr*,1))<48 THEN 810 
850 enr=VAL(enr*):G0T0 1020 
860 ' 

870 CLS #3:PRINT #3,inv* "Daten gueltig! Bitte Ihre Eingabe!" Inv* 

880 befehl*1esen:POKE mbefehl,befehl 

890 CLS #5:PRINT *5,"Eintragsnummer: "enr 

900 ' 

910 x*=L0WER*(INKEY*):IF x*="" THEN 910 

920 IF x*="e" THEN 1830 

930 IF x*="f" THEN 1490 

940 IF x*="g" THEN 800 

950 IF ASC(x*)=224 THEN 1190 

960 IF ASC(x*)<240 THEN 910 

970 IF ASC(x*)>243 THEN 910 

980 IF ASC(x*)=243 THEN enr=enr+l 

990 IF ASC(x*>=242 THEN enr=enr-l 

1000 IF ASC(x*)=240 THEN enr=enr+10 

1010 IF ASC(x»)=241 THEN enr=enr-10 

1020 nr=enr-basls 

1030 IF enr<basis THEN enr=basis 
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1040 IF enr>=eintraege+basis THHN enr-eintraege+basis-1 
1050 IF nr<0 THEN nr = 0 
1060 nr=enr-basis 

1070 sf 1 ag=0:befeh I = 1esen:POKE mbefeh I,befeh I 
1080 GOSUß 1870 
1090 ’ 

1100 'Leseschleife 

1110 POKE stream,str:zz=0:FOR i = 1 TO felder 
1120 beginn=begad+zz:zz=zz+feldlen(i) 

1130 zeile=yposi(i):anzahl=feldlen(i)-l 

1140 ramhi gh= INK beginn/256):ram1ov=beginn-ramhigh»256 

1150 WINDOW #7,xpcisi(i) + 16,xposi(l) + feld!en<i) + 16,zeiIe + 4,zeile + 4:CLS #7 
1160 GOSUB 1740:CALL ramwr:NEXT i:G0T0 870 

1170 '------ 

1180 'Aendern 

1190 PRINT #3,inv*"Bitte Ihre Eingaben!"inv*:PRINT #5,"Aendern":PRINT #4,enr 
1200 POKE stream,str:zz=0:befeh I^schreiben:POKE mbefeh 1,befehI 
1210 FOR i = 1 TO felder 

1220 beginn=begad+zz:zz=zz+feldlen(i):zeile=yposi(i):anzahl=feldlen(i)-l 
1230 ramhigh=INT(beginn/256):ram 1ow=beginn-ramhigh«256 
1240 WINDOW R7,xposi(i)+16,xposi(i)+feldlen(i)+17,zeile+4,zeile+4 
1250 GOSUB 1800:CALL WED 
1260 ' 

1270 anzahl=feldlen(i):GOSUB 1740:CALL ramrd:NEXT ÜPRINT *5 
1280 ’ 

1290 POKE mtrack,trackl:POKE mformse.sfl 

1300 POKE mdrive, 1 :P0KE mbuf f er, 0 :POKE mbuf f er +1, 8,90 

1310 CALL 8,8218: IF track2>159 THEN 1410 

1320 ' 

1330 POKE mtrack,track2:P0KE mformse,sf2 

1340 POKE mdrive, KPOKE mbuf fer, 0:POKE mbuf fer + 1, 8,92 

1350 CALL 8,8218: IF track3>159 THEN 1410 

1360 ’ 

1370 POKE mtrack,track3:P0KE mformse,sf3 

1380 POKE mdrive, KPOKE mbuf fer, 0:POKE mbuf fer + 1, 8,94 

1390 CALL 8,8218 

1400 ’ 

1410 CLS #4:GOTO 870 

i420 '..----- 

1430 'Fehlerbehandlung 

1440 PRINT #3,inv* "Fehler! "inv*; 

1450 PRINT #5,inv*" Bitte Taste ’j’ oder ’n' druecken!"inv*:PR INT CHR*(7>; 
1460 x*=L0WER*<INKEY*):IF x*="" THEN 1460 

1470 IF x*<> "j" AND x*<> "n" THEN 1460 ELSE CLS *5:CLS #3:RETURN 

1480 '...... 

1490 PRINT #3,inv*"Suchen: "inv*" Bitte geben Sie die Zeichenfolge ein! " 
1500 INPUT #5,such*:IF LEN (such*)=0 THEN sw»=sv* ELSE sw*=such* 

1510 w1aenge=LEN(sw*):IF wlaenge>56 THEN sw*=LEFT*(sw*,56):G0T0 1510 
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1520 1F wIaenge<1 THEN 1490 

1530 FOP. 1 = 1 TO w 1 aenge : POKE suchwort + i -1, ASC (MID* (sw$, 1, 1)):NEXT 1 

1540 POKE 1aenge,wlaenge:sflag=l 

1550 a1tenr=enr:G0T0 1690 

1560 stand=begad 

1570 • 

1580 sthi=!NT(stand/256):stIo=stand-sthi*256:rest=off 
1590 ram 1 hl = 1 NT(rest/256) •' ram 1lo = rest-ram 1 hi *256 
1600 ’ 

1610 POKE aktstart,stlo:P0KE aktstart+1,sthi 
1620 POKE ramIen,ramI1o:P0KE ras 1en+1,ra«I hi 
1630 ’ 

1640 CALL suche: fs = PEEK( fundpos)+PEEK(fundpos + 1)*256 
1650 1F fs<>0 THEN 1020 
1660 ' 

1670 PRINT #5,"Eintragsnummer: "enr 
1680 IF enr>=eintraege THEN 1710 

1690 nr = nr + l:enr=enr + l: IF nr > elntraege THEN 1710 ELSE GOSUB 1870 
1700 GOTO 1560 

1710 enr=aItenr:PR INT »3, inv$"Nicht gefunden !"inv*:G0SUB 1450:GOTO 1020 

1720 '----- 

1730 'Lesen aus Window 7 und schreiben in RAM-Disk 
1740 ze11e=l:spa1te=1:POKE zei I ein, zel 1 e 
1750 POKE manzah1,anzahI:P0KE mspa1te,spalte 
1760 POKE ramd1,ramIow:POKE ramdi+1,ramhigh 
1770 IF PEEKictaste)=224 THEN i = felder 
1780 POKE ctaste,0:RETURN 

1790 '.-.-.---- 

1800 llnks=16:rechts=feldlen(i> 

1810 POKE stream,str:POKE 1inksra,1:POKE rechtsm,rechtsiRETURN 

1820 '----- 

1830 PRINT »3,"Programm beenden ???":G0SUB 1450 
1840 IF x*="n" THEN GOTO 1080 
1850 IF x*="j" THEN MODE 2: END 

1860 '.-...... 

1870 CLS #3:PRINT #3,inv*"Moment bitte!"inv* 

1880 IF sflag=l THEN PRINT»3,"Ich suche: "sw* 

1890 ' 

1900 'Berechnung von Offset (offl) und Sectornummern (sfl bis sf..x) 

1910 ' 

1920 hnr=INT((nr*off)/sec 1en) 

1930 secbytes=(hnr+anzsec)*seclen-(anzsec*seclen) 

1940 datbytes=hnr»off 
1950 offl=datbytes-secbytes 

1960 IF offl>=off THEN offl=off1-off:G0T0 1960 
1970 IF offl>seclen THEN offl=offl-seclen:hnr=hnr+l:G0T0 1930 
1980 sfl=l+hnr MOD 9:sf2=1+(1+hnr> MOD 9:sf3=1+(2+hnr) MOD 9 
1990 ’ 
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2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 


bytstandl = nr*of f:bytstand2=bytstandl+seclen 

bytstand3=bytstand2+seclen 

trackl=INT((bytstandl)/(seclen«9)) 

track2=INT((bytstand2)/(seclen*9)) 

track3=[NT((bytstand3)/(seclen*9)) 

t 

POKE mbefehI,befehl 

POKE mtrack,trackl:P0KE mformse,sf1:POKE mdrive,1:P0KE 
POKE mbuffer+1,&90:CALL *(8218: IF track2>159 THEN 2170 

t 

POKE mtrack,track2:P0KE mformse,sf2:P0KE mdr1ve,1:POKE 
POKE mbuffer + 1,8<92:CALL &8218: !F track3>159 THEN 2170 

t 

POKE mtrack,track3:POKE mformse,sf3:P0KE mdrive,1:P0KE 
POKE mbuffer + 1, 8<94:CALt «(8218 

t 

PRINT #5,"Trackl: "trackl" "i 
PRINT #5,"Sektor: "HEX*(sfl>" "; 
buffoff=offl:begad=buffanf+offl 
RETURN 


mbuffer,0 


mbuffer,0 


mbuffer,0 
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8 Verwaltung ist nicht alles! 


8.1 Die Daten sollen welterverarbettet werden 

Haben Sie nach mühevollen Eingaben Ihre Datei er¬ 
stellt, dann soll mit diesen Daten auch irgendetwas 
angefangen werden. Die Tatsache alleine, Daten ge¬ 
speichert zu haben, rechtfertigt den ganzen Aufwand 
bestimmt nicht. 

Abgesehen, von schneller Suche nach irgendwelchen Kri¬ 
terien will man auch vieles "schwarz auf weiß" haben 
und das auch möglichst noch in der Form, wie man es 
wünscht. 

Ich kann nun unmöglich alle Kriterien, die bei Ihnen 
von Interesse sind, kennen. Auch ein AIlroundprogramm 
um auf die von Ihnen erstellten Datenbänke zugreifen 
zu können und in Jeder Form und Weise zu Papier zu 
bringen, gibt es nicht. Aber ich kann Ihnen die Wege 
aufzeigen, die beschritten werden können. 

Nehmen wir den einfachsten Fall. Die Daten, die mit¬ 
tels des Programmes RAMDISK1 erfaßt wurden, sollen 
ausgedruckt werden. 

Wie Sie wissen, werden die Daten nicht Uber Strings 
verwaltet und deswegen scheint es schwierig zu sein, 
diese auch ausgeben zu lassen! oder? 

Kein Problem und dabei lernen Sie nun wieder einen 
Trick kennen, der gar nicht so ohne ist. 

Wie Sie wissen, werden die Daten fUr das Programm RAM- 
DISK1 unter dem Namen RAMDISK1.DAT auf die Diskette 
gespeichert. Sie stehen also allen weiteren Programmen 
zur Verfügung. Gleiches gilt auch für die Maskendaten. 

Ein Zusatz- oder Hilfsprogramm kann deshalb sowohl auf 
die vorhandenen Daten zugreifen, als auch die Masken- 
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daten lesen. Deshalb gleich wieder ein Programm, das 
aufzeigt, wie mit den vorhandenen Daten gearbeitet 
werden kann. Der Name des Programmes ist SEQWAND1.BAS 
und das bezeichnet auch welche Aufgabe das Programm 
erfüllt. Es wandelt die binären Daten in ein sequen¬ 
tielles File um. Daß zu diesem Zweck Stringvariable 
erzeugt werden milssen, ist klar, aber in welcher Weise 
dies geschieht ist bestimmt fUr Sie interessant. 

Daß nicht nur eine Umwandlung erfolgen kann, sondern 
daß diese Daten auch auf den Bildschirm oder Drucker 
ausgegeben werden können, hängt im großen und ganzen 
nur von dem ab, was Sie (evtl, noch zusätzlich) Pro¬ 
gramm ieren. 

Ich bin einfach davon ausgegangen, daß ich mittels 
anderer Programme dann wieder auf ein sequentielles 
Datenfile zugreifen will und deswegen eine Umwandlung 
erfolgen soll. 

Das nachstehende Listing erfüllt diesen Zweck fUr die 
Daten von RAMDISK1. 


8.1.1 Bas 1cprogramm: SEQWAND1 

100 'SEQWANDl.BAS 
110 ' 

120 MODE 2 (MEMORY 8<2FFF:PR1NT #1, "Bitte Datendiskette einl egen" :CALL S.BB06 

121 GOSUB 500:PRINT #2,"Teil 1 

130 LOCATE 1,3:PRINT"Lese das Binaerfile " :LOAD"ramdi skl. dat” , 8,3000 
140 PRINT"Daten gelesen! 

150 start=&3000:adresse=start 
160 PRINT"Eroeffne SEQ-File! 

170 OPENOUT"ramdiskl.seq" 

180 LOCATE 40,1:PR[NT"Eint ragsnummer: " 

190 FOR i = 1 TO eintraege 
200 CLS #1:PR 1 NT #3,i 
210 FOR x = 1 TO fei der 
220 b$=STR!NG$(feldlen(x),"»") 

230 a$=b* 

240 adlhi g = I NT (adresse/256): adl 1 ow=adresse-adlhi g»256 

250 a2=@ a$+l:a3=@ a$+2 

260 POKE a2,adllow:POKE a3,adlhig 

270 MID$(b$,l)=a$:a*="" 

280 PRINT #1,b$:PRINT #9, b$:b* = "":a=FRE<"" ) 

290 adresse=adresse + feId 1 en(x ) 

300 NEXT x:NEXT i 
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310 CLOSEOUT 

320 CLEAR:MEMORY &9FFF 

330 CLS #1:CLEAR 

340 GOSUB 500 

350 PRINT #2,"Tel I 2 

360 D1M feIdinha11*(eintraege,fe 1 der ) 

370 LOCATE 40,1:PRINT"Eintragsnummer: " 

380 OPENIN"ramdiskl.seq" 

390 FOR 1 = 1 TO eintraege 

400 PRINT *3, i 

410 FOR x = 1 TO fei der 

420 INPUT #9,fe1dinha1t$(i,x) 

430 PRINT #1, fe 1 dinha11$(i,x) 

440 'Die naechste Zeile hilft gegen Stringspace full 

450 FOR j = 2 TO 5: fe 1 dinha11$(i,j>="" :NEXT j 

460 NEXT x:CLS #1:NEXT I 

470 CLOSEIN 

480 MODE 2:END 

490 '--- 

500 MODE 2:PRINT"Prograram: SEQWAND1":PR I NT:PR INT 
510 WINDOW *1,1,79,3,23:WIND0W #2,25,35,1,1 
520 WINDOW #3,60,66,1,1 

530 PRINT II,"Lese die Maskendaten" .'OPEN IN"ramdiskl.msk" 
540 INPUT #9,buffanf*,buffend*,eintraege,off,fe1 der 
550 DIM fenami(fe!der>,fe1dIen(feI der ) 

560 FOR i = 1 TO felder 

570 INPUT #9, fenamt(i),feId1en<i),xpos1,yposi 
580 NEXT t 
590 CLOSEIN 
600 RETURN 


Was fUr Anfänger vollkommen unverständlich bei diesem 
Programm sein wird, ist die Tatsache, daß die Varia¬ 
blenzeiger fUr a* erst geholt werden und dann ln den 
Bereich der Daten umgestellt werden. 

Diese Methode ist sehr schnell und jeder Umwandlung 
Uber die Methode PEEK-CHRS-Umwand 1ung (auf die ich 
hier gar nicht näher eingehen will) haushoch Uber- 
1 egen. 

Voraussetzung um einen solchen Trick einzusetzen, ist 
detai1ierteres Wissen Uber die Arbeitsweise der CPCs. 
Aber auch derjenige, der dieses Wissen nicht hat, kann 
diesen Trick nun einsetzen, wenn er ein paar kleine 
Punkte berücksichtigt. 
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Vom Zeitpunkt der "Zeigerverstellung" an, bis zur 
"Löschung" der Variablen darf keine Garbage-Co11ect- 
Routlne erfolgen. Die Garbage-Co11ect-Routine (GCR) 
ist eine MU11string-Beseitigungs-Routine der CPCs. Im 
CPC werden bei der Stringver- und -bearbeitung laufend 
Strings erzeugt, die nicht mehr giiltig bzw. nicht mehr 
aktuell sind. Wird dem CPC deshalb der Platz zu eng, 
dann ruft er automatisch eine Routine auf, die diesen 
"MU11" beseitigt. Durch diese Beseitigung aber werden 
die Variablenzeiger, also die Speicherstellen die dem 
CPC zeigen, wo er sie findet, ebenfalls automatisch 
korrigiert. Durch eine Verstellung von Variablenzei¬ 
gern und nachfolgender MU11beseitigung aber, wurden 
die Variablenzeiger falsch gestellt werden! 

Erste Voraussetzung ist also, es darf keine GCR auf- 
treten. Als weiteres dürfen auch keine Stringmanipula¬ 
tionen vorgenommen werden, die bewirken, daß die ak¬ 
tuellen String i nha 1 te "wandern"! 

Und deshalb muß Uber die Funktion "M!D$" gearbeitet 
werden, und zwar Uber die zweite Möglichkeit, diesen 
Befehl einzusetzen! 

Außerdem wird im Programm nach der Löschung durch al 
="" und b$ ="" sofort ein Zwangsaufruf der GCR durch 
a=FRE("") bewirkt, denn dann stimmen die Zeiger alle 
"zwangsweise". Die genauere Beschreibung wurde nun 
aber zu weit fuhren, wie mit dieser Methode gearbeitet 
werden kann, zeigen die Zeilen 220 bis 280 sehr an¬ 
schau 1 ich. 

Doch was geschieht in diesen Zeilen noch? 

Das Programm wandelt alle Dateneinträge (alle Felder) 
in die Stringvariab1e bt und gibt diese dann jeweils 
auf den Bildschirm und auf die Diskette aus. FUr die 
Diskettenausgabe wurde vorher in Zeile 170 das sequen¬ 
tielle File "RAMDISK1.SEQ" geöffnet. 

In Zeile 220 wird b$ immer auf die Länge des jeweili¬ 
gen Feldeintrages gebracht, denn nur dadurch ist es 
möglich, mittels MID$ in der zweiten Art zu arbeiten, 
wobei keinerlei MUllstrings anfallen! 

Die eigentliche Routine geht nur bis Zeile 130 und 500 
bis 600, aber ich habe gleich noch einen zweiten Teil 
hinzugefugt, der das File wieder einiesen kann. 
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In diesem Teil sehen Sie in Zeile 450 einen kleinen 
Dreh um "Stringspace full" zu vermeiden, denn wenn zu 
allen Variablen auch noch der Variablenzeiger kommt, 
dann reicht der Speicherplatz des CPCs nicht mehr. Das 
zeigt auch, daß unter den angegebenen Voraussetzungen 
mittels der Binärfiles mehr Daten verarbeitet werden 
können, als mittels der Verwaltung Uber die String¬ 
var iab Ien! 

Während des Programm 1 auf es werden Ihnen die ganzen um¬ 
gewandelten Daten auf dem Bildschirm ausgegeben und am 
Ende steht auf der Diskette ein sequentielles File, 
das Sie beispielsweise flir Ausdruckzwecke verwenden 
können. (Durch PRINT #8 hätte anstelle der Schirmaus¬ 
gabe auch gleich eine Druckerausgabe erfolgen können!) 

Ich hoffe, daß Sie die GrundzUge des Programmes ver¬ 
stehen, um eigene "Weiterverarbeiter" programmieren zu 
können. 

Wollen Sie zusätzlich zu den Daten auch noch die Feld¬ 
namen haben, dann zeigt Ihnen nachstehende Variante, 
wie dies machbar ist. 

8.1.2 Baslc-Listin«: SEQWAND2.BAS 

100 'SEQWAND2.BAS 
110 ’ 

120 MODE 2:MEMORY 8<2FFF:PRINT *1, "Datendiskette ein 1 egen/Taste" :CALL S.BB06 
130 GOSUB 540:PR 1 NT #2,"Teil 1 

140 LOCATE 1,3: PRI NT"Lese das Binaerfile " : LOAD"ramdiskl. dat", S.3000 
150 PRINT II,"Daten gelesen! 

160 start=i3000:adresse=start 

170 PRINTIl,"Eroeffne SEQ-FiIe!":CLS »1 

180 OPENOUT"ramdlskl.seq" 

190 CLS II:LOCATE 40,1:PR INT"Eintragsnummer: " 

200 FOR i = 1 TO fe1 der:PR I NT II, fenam*(i):NEXT i 

210 FOR i = 1 TO eintraege 

220 PRINT 13, i 

230 FOR x = 1 TO fe1 der 

240 b$=STRINGI(feldlen(x),"»") 

250 a$=b* 

260 adlhig=INT(adresse/256):adllow=adresse-adlhig*256 

270 a2=@ a$+l:a3=@ al+2 

280 POKE a2,adl1owiPOKE a3,adlhig 

290 MIDKb», l)=a*:a» = "" 

300 PRINT 14,b*:PR I NT 19,b*:b* = "":a=FRE<"") 

310 adresse=adresse+fe1d1en(x) 
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320 NEXT x:CLS #4:NEXT i 

330 CLOSEOUT 

340 CLEAR:MEMORY &9FFF 

350 CLEAR 

360 GOSUB 540 

370 PRINT #2,"Tel 1 2 

380 DIM feldinha1ti(eintraege,fe1 der> 

390 LOCATE 40, 1: PR I NT"Elntragsnuminer : " 

400 OPENIN"ramdiskl.seq" 

410 CLS #1 :FOR 1 =1 TO felder:PRINT * 1, f er.am* (1) :NEXT 1 

420 FOR 1 = 1 TO eintraege 

430 PRINT #3,1 

440 FOR x = 1 TO felder 

450 INPUT #9,feldinhalt*<i,x> 

460 IF LEFT*(feldlnhalt*(l,x),l)="." THEN feldinhalt*<1,x>=" " 
470 PRINT #4,fe1dlnha1t*(1,x) 

480 'Die naechste Zeile hilft gegen Stringspace full 

490 FOR j = 2 TO 5:fe1dinha1t$(1,j)="":NEXT j 

500 NEXT x:CLS #4:NEXT 1 

510 CLOSEIN 

520 MODE 2:END 

530 ’.. 

540 MODE 2:PRINT"Progrann: SEQWAND2":PRINT:PRINT 

550 WINDOW #1,1,79,3,23:WIND0W #2,25,35,1,1 

560 WINDOW #3,60,66,1,lsWINDOW #4,16,79,3,23 

570 PRINT #1,"Lese die Maskendaten":OPENIN"ramd1skl.msk" 

580 INPUT #9,buffanft,buffend$,eintraege,off,feIder 
590 DIM fenamt(fe1 der),feIdIen(fe1 der) 

600 FOR 1 = 1 TO felder 

610 INPUT #9, fenam*(i), fe1d1en(i),xposi,yposi 
620 NEXT i 
630 CLOSEIN 

640 PRINT #2,"Maskendaten gelesen!" 

650 RETURN 


Damit wäre die normale Umwandlung von Dateien fllr RAM- 
DISK1 abgeschlossen. 

FUr RAMDISK2 kann die Umwandlung auf die gleiche Weise 
geschehen. Nur die Bank-Umscha1tung muß noch zusätz¬ 
lich erfolgen. Aber da kann es dann Probleme mit der 
Speicherkapazität der Sehne 1 der-DIsketten geben, denn 
alleine die Binärdaten belegen auf der Diskette 5*17 
KByte, kommen zu diesen noch andere Files hinzu, dann 
wird es eng auf dem Massenspeichermed1 um. Sorgen Sie 
deshalb immer dafür, daß die Diskettenkapazität noch 
ausreichend ist. 
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Ein Sequentielles Datenfile benötigt immer mehr Platz 
als ein Binärfile in der von den Programmen verwende¬ 
ten Art. Obwohl die binären Daten nur 5 * 17 KByte = 

85 KByte benötigen, braucht ein sequentielles File 
dann 87 KByte oder mehr. Das hängt vor allem davon ab, 
wieviele Felder Sie haben, denn nach jedem Feldinhalt 
wird ein sogenannter Delimiter geschrieben, also ein 
Trennzeichen um die einzelnen Strings voneinander zu 
trennen. 

Reicht die Kapazität bedingt durch diese Eigenarten 
nicht mehr aus, dann hilft evtl, ein zweites Laufwerk 
aus der Misere, wenn Sie ein sequentielles File mit 
dem kompletten Datenumfang haben wollen. 

Aber meist wird dies ja gar nicht benötigt, es sollte 
nur gezeigt werden, wie die Wandlung erfolgen kann. 

Viel interessanter ist schon, die Daten beispielsweise 
sortiert ausgeben zu können, oder mit den Daten zu 
rechnen. FUr Rechenaufgaben muß nur die Umwandlung von 
gelesenen Datenstrings in Zahlvariable erfolgen und 
dann geht es ganz normal weiter. 


8.2 Sortierte Daten 

Nun aber zum Sortieren. Es wäre unsinnig, wenn durch 
jeden Sortiervorgang (fUr jedes Sortierkriterium) alle 
Daten "umgeschaufelt" werden würden. Schließlich hat 
man sich irgendwann ja einmal Gedanken gemacht, warum 
die Daten in der Reihenfolge stehen, wie Sie eingege¬ 
ben wurden. 

Einfacher ist es, eine (oder mehrere) Sortierdatei<en) 
erstellen zu lassen. 

Wie dies geht, soll wieder durch Beispie1 Programme ge¬ 
zeigt werden. Aber an dieser Stelle nun einmal erst 
die vielleicht von Ihnen schon in Gedanken gestellte 
Frage: 

Warum ist in all den Programmen dieses Buches bis 
jetzt noch nichts von Umlauten und DIN-Tastatur ge¬ 
schrieben worden? 


Die Antwort ist: Beim Sortieren würde man enorm große 
Probleme bekommen. 
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Wer sich schon einmal den Aufwand gemacht hat, ein 
Sortierprogramm für deutsche Umlaute zu schreiben, der 
weiß was Ich damit meine. 

Das Problem ist eben, daß der ASCII-Ze1chensatz mit 
eine der Grundlagen Ist, auf dem alle Computer (auch 
die CPCs) basieren. 

Es ist kein Problem, dem CPC Umlaute zu "lernen" und 
zwar so, daß sowohl die Tastenbelegung stimmt, als 
auch daß - auf den entsprechenden Tastendruck hin - 
das Um 1autze1chen auf dem Bildschirm erscheint, aber 
der Programmieraufwand beim Sortieren ist enorm hoch. 

Aber gut, Ich wäre schon in der Lage gewesen ein der¬ 
artiges Programm zu schreiben, auch wenn der Umfang 
etwas hoch gewesen wäre. Aber das bisher Erwähnte ist 
nicht der einzige Grund weshalb ich es nicht getan 
habe. Selbst wenn die Zeichen auf dem Bildschirm rich¬ 
tig erscheinen, sagt das noch gar nichts darüber aus, 
was ein angeschlossener Drucker zu Papier bringt! 

Was hilft es denn, wenn auf dem Schirm die Zeichen so 
stehen, wie Sie es wünschen, der Drucker aber etwas 
völlig anderes zu Papier bringt. Ich aber kenne Ihren 
Drucker nicht und kann deshalb auch gar nicht helfen. 
Bitte haben Sie Nachsicht, daß die Sortierung der Um¬ 
laute nicht realisiert wurde. Wer sowohl auf dem Bild¬ 
schirm, als auch auf dem Drucker Umlaute haben will, 
kann es mit dem Programm D1NTAST.BAS versuchen. Da der 
CPC 664 und der CPC 6128 eine Druckwande1-Tabe11e im 
Betriebssystem haben, könnte es durchaus sein, daß der 
Drucker bei Einstellung des deutschen Zeichensatzes 
alles so druckt, wie es auf dem Schirm steht. 

Hier gleich das Programm fUr eine deutsche Tastatur. 


Basic-Programm: DINTAST.BAS 

100 ’DINTAST 
110 ' 

120 SYMBOL AFTER 64 
130 ' 

140 SYMBOL 64,&3C,&60,&3C,&66,&3C,&6,&3C,&0 
150 SYMBOL 91,&C6,&10,&38,&6C,&C6,&FE,&C6,&0 
160 SYMBOL 92, &C6,&0, i7C,i<C6, fcC6, S.C6, &7C,&0 
170 SYMBOL 93, &66,8<0, &66, fc66, &66,&66, &3C, &0 
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180 SYMBOL 123, &66, &0, &78,&C, &7C, iCC, ii76, i0 
190 SYMBOL 124,&66,&0,&3C,&66,&66,&66,&3C,&0 
200 SYMBOL 125,&66,&0,&66,&66,&66,&66,&3E,&0 
210 SYMBOL 126,&78,&C6,&C6,&FC,&C6,&C6,&D8,&0 
220 ’ 

230 KEY DEF 17,1,43,42,27:KEY DEF 19,1,35,39,29:KEY DEF 22,1,60,62,28 
240 KEY DEF 24,1,94,96,30:KEY DEF 25,1,126,63:KEY DEF 26,1,125,93 
250 KEY DEF 28,1,123,91:KEY DEF 29,1,124,92:KEY DEF 30,1,45,95 
260 KEY DEF 31,1,46,58:KEY DEF 32,1,48,61,31:KEY DEF 39,1,44,59 
270 KEY DEF 41,1,55,47:KEY DEF 43,1,122,90,26:KEY DEF 56,1,52,36,163 
280 KEY DEF 57,1,51,64,&0:KEY DEF 71,1,121,89,25 


Durch dieses Programm haben Sie eine deutsche Tasten¬ 
belegung und auch die Schirmdarstellung erfolgt in 
dieser Weise. Ein solches Programm aber vermindert den 
zur Verfügung stehenden Speicherplatz. Daran sollten 
Sie denken! Ein CPC wird nach der Aktivierung von Um¬ 
lauten etc. durch obiges Programm nur noch &A0FB als 
HIMEM melden. 

Nun zu den Sortierprogrammen. Ich habe dabei auf ein 
ebenfalls beim Franz 1s-Ver1ag erschienenes Buch zu- 
rllckgegriffen. Die So r t i er r out i nen sind Abwandlungen 
aus "BASIC: Sortierprogramme" von Rudolf Busch. 

Hierüber bin ich Ihnen eine Erklärung schuldig. Es 
gibt nur ein paar Sortieralgorithmen, auf denen ei¬ 
gentlich alle "Sortierer" aufbauen (Quicksort, Bubble- 
Sort, Hoare-Sort u.ä.). Diese Programme unterscheiden 
sich vor allem in der Geschwindigkeit des Sortierens 
bei vorgegebener Datenstruktur und auch in der Über¬ 
schaubarkeit für den Anwender. 

Da ich aber weder Ihre Datenstruktur kenne noch weiß, 
was Sie wie berücksichtigen wollen (z. Beispiel Um¬ 
lau tsor t i er ung ) , erschien es mir nicht vorteilhaft, 
Ihnen ein Maschinenprogramm zu geben. Dadurch haben 
Sie einmal die Möglichkeit, die Sortier-Routine durch 
eine andere zu ersetzen und außerdem können Sie auch 
noch im entsprechenden Buch nachlesen wie sie funktio¬ 
nieren. Dabei habe ich zwei verschiedene Sortierpro¬ 
gramme benutzt. Das erste ist relativ langsam aber 
leicht zu verstehen. Beim zweiten wird es schon 
schwieriger. 
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8.2.1 Immer der Reihe nach 

(Sortieren fUr RAMDISK1 und RAMDISK2 


Zunächst ein Programm fUr RAMDISK1. Dabei legen Sie 
durch sortfeld fest, nach welcher Eintragsnummer sor¬ 
tiert werden soll. Dieses Programm ist etwas langsam 
mit seiner "Sortiererei" aber besser zu durchschauen, 
wodurch Sie evtl, den Vorteil haben, es flir die Um¬ 
lautsortierung abzuändern. Da Großbuchstaben aber an¬ 
dere ASC1I-Zuordnungen haben, als kleine, wird im Pro¬ 
gramm einfach alles in Großbuchstaben gewandelt. Wer 
es klein haben will, muß den Befehl UPPER* gegen 
LOWER* austauschen. 


8.2.2 Baslc-Listing; S0RT1.BAS 

100 'S0RT1.BAS 
110 ' 

115 MODE 2:MEMORY 8<2FFF:PRINT"Datendiskette einl egen/Taste" :CALL &BB06 
120 GOSUB 1010:PRINT #2,"Teil 1":sortfe1d=15 

130 LOCATE 1,3 :PR I NT #4,"Lese das Bi naerf i 1 e !": L0AD"ramd iskl. dat", 8(3000 
140 PRINT #4, "Maskendaten ge 1 esen! " : start = 8<3000:adresse = start 
150 PRINT #4,"Oeffne SEQ-Fi1e ! ":OPENOUT"sort1.seq" 

160 PRINT »4,"SEQ-File geoeffnet!" 

170 LOCATE 40,1:PR INT"Eint ragsnummer : " 

180 PRINT #4,"Lese Daten aus dem Speicher und schreibe Sortierdaten auf Disk 

190 FOR i = 1 TO eintraege 

200 PRINT #3,1 

210 FOR x = 1 TO fe1 der 

220 b*=STRING*(feldlen(x),"»">:a$=b* 

230 adlhig=I NT(adresse/256):adl1ow=adresse-adlhig*256 

240 a2=@ a*+l:a3=@ a*+2 

250 POKE a2,adl1ow :P0KE a3,adlhig 

260 MID*(b$,l)=a*:a*="" 

270 IF x=sortfeld THEN PRINT #l,b$:PRINT *9,b*:b$="":a=FRE("") 

280 adresse=adresse+fe1d1en(x) 

290 NEXT x 
300 NEXT i:CLS #1 

310 PRINT #4,"Schliesse Seq-Fl1e!":CL0SE0UT:PR 1 NT #4,"Seq-File geschlossen!" 
320 ' 

330 PRINT #4,"Wechsel zu Programrateil 2!" 

340 CLEAR:MEMORY &9FFF:CLS #1 :CLEAR:GOSUB 1010 

350 D1M feldinha1t*(eintraege),enr*(eintraege),enr(eintraege) 

360 PRINT #2,"Teil 2":L0CATE 40,1:PRINT"Eintragsnuramer: " 

370 PRINT #4,"Oeffne Seq-File!":OPENIN"sortl.seq" 

380 PRINT #4,"Seq-Fi!e geoeffnet - lese Sortierdaten!" 

390 FOR i = 1 TO eintraege 
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400 PRINT #3,i: lNPUT #9,feId1nha!t*(1) 

410 feldinhalt$(i)=UPPER$(feldinhalt4(i)):enr(i)=i 
420 PRINT #1,feldinhalt$(i),enrt(i) 

430 NEXT i:CL0SE1N:PRINT *4,"Seq-Fi1e geschlossen!" 

440 CLS #1 
450 ' 

460 'Sortierteil 

470 PRINT *4,"Wechsel zu Programmteil 3!”:PRINT #2,"Teil 3" 

480 PRINT 14,"Ich sortiere !":n=eintraege 
490 x=n 

500 y=0:x=x-l•IF x=0 THEN 590 
510 FOR i = 1 TO n-1 

520 IF feldinhalt*(l)<=feldinhalt$(i+l) THEN 560 
530 hilfs» = feidinhalt*( i):h=enr( i) 

540 feldinhaltt(i)=feldinhalt4(i+t):enr(i)=enr(i+l) 

550 feldinhalt*(i+1)=hi1fs*:enr(i+1>=h:y=y+l:PRINT#3,i 

560 NEXT i 

570 IF y<>0 THEN 500 

580 ' 

590 PRINT #4,"Sortiervorgang beendet - Ausgabe der sortierten Daten! 

600 FOR 1 - 1 TO n 

610 PRINT »1,feldinhalt$(i),enr(i) 

620 NEXT 1 
630 ' 

640 PRINT 114, "Ausgabe beendet - schreibe Sortier-Nummern als SEQ-File!" 

650 PRINT 12,"Teil 4":0PEN0UT"sortl.seq" 

660 FOR i = 1 TO n 

670 PRINT #9,enr(i):PR INT #3, i 

680 NEXT i:CL0SE0UT 

690 PRINT »4,"Seq-File geschrieben! 

700 PRINT #4,"Wechsel zu Programmteil 5" 

710 ’ 

720 CLEAR:MEMORY &2FFF:G0SUB 1010 
730 PRINT #2,"TeiI 5" 

740 PRINT #4,"Lese die Datei ein !" 

750 L0AD"ramd iskl.dat", &3000 

760 PRINT #4,"Datei eingelesen - lese sortierte Eintragsnummern und ... 

770 FOR i = 1 TO 2000:NEXT i 

780 PRINTH4,".. gebe die Eintraege sortiert auf dem Schirm und auf Disk aus!" 

790 WINDOW #1,17,79,5,23:W!ND0W #6,1,17,5,23 

800 FOR i = 1 TO fe1 der:PR I NT #6,fenam*(i):NEXT i 

810 OPENIN "sortl.seq" 

820 OPENOUT”ramdat1.sor" 

830 FOR i = 1 TO eintraege 

840 INPUT #9,enr:PR INT #3,enr 

850 adresse=8i3000t (enr-1) *of f 

860 FOR x = 1 TO felder 

870 b*=STRINGt(feldlen(x),"»"):a$=b$ 
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880 adlhig=INT(ad resse/256):adl1ow=adresse-adlhig*256 

890 a2=@ a$+l:a3=@ a*+2 

900 POKE a2,adl1ov:POKE a3,adlhig 

910 MID$(b*,l)=a*:a$="":a=FRE(0) 

920 PRINT #1,b*!PRINT 19,b* 

930 adresse=adresse+fe1d1en<x) 

940 NEXT x:CLS #1 

950 NEXT i 

960 CLOSEIN:CL0SE0UT 

970 CLS #2:CLS #3:CLS #6:PRINT «1,"Programm 1 auf beendet!" 

980 LOCATE 1,25:PRINT"Bi tte eine Taste druecken" :CALL &BB06 
990 MODE 2:END 
1000 '.-. 

1010 MODE 2:PRINT"Programm: Sor11":PR INT:PRINT 

1020 UINDOU #1,1,79,5,24:WIND0U *2,25,35,1,1 

1030 WINDOW #3,60,66,1,l:WINDOW #4,1,79,3,3 

1040 PRINT #4,"Lese die Maskendaten":OPEN IN"ramdiskl.msk" 

1050 INPUT #9,buffanf$,buffend*,ei ntraege,off,fe1 der 
1060 DIM fenamt(fe1 der),fe1dIen(fe1 der) 

1070 FOR i = 1 TO feIder 

1080 INPUT #9,fenamt(i),feId1en(i),xposi,yposi 
1090 fenamt(i)=LEFT$(fenamt(i),15) 

1100 NEXT i 

1110 CL0SEIN:PRINT#4,"Maskendaten gelesen, File geschlossen!" 
1120 RETURN 


Dieses Programm dient vor allem zu Demonstrations¬ 
zwecken, genauso wie S0RT2.BAS. Es besteht aus insge¬ 
samt 5 Programmteilen, die unterschiedliche Aufgaben 
erledigen. Die kleine Beschreibung ist eine Mischung 
von beiden Programmen. Teilweise treffen die Aussagen 
nur fUr S0RT2.BAS zu. 

Der erste Teil lädt die Maskendaten und das Datenfile. 
Sortfeld bestimmt, nach welchem Feld sortiert werden 
soll. Wünschen Sie aber die Sortierung Uber zwei Fel¬ 
der hinweg (z.B. Postleitzahl und Ort) dann müssen 
diese beiden Feldinhalte zusammengefaßt werden. 

Der erste Teil schreibt die Daten der Sortierfe1 der 
als sequentielles File auf die Diskette, die in sort¬ 
feld festgelegt wurde. Nach diesem Vorgang wird Platz 
im Speicher benötigt, um den Sortiervorgang durch¬ 
führen zu können. Deshalb wird auf sehr überlistende 
Art weiterverfahren. Die echten Daten sind im Moment 
ja nicht wichtig und deshalb kann der reservierte 
Speicher hierfür, freigegeben werden. 
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Dann werden die ln der normalen Reihenfolge geschrie¬ 
benen Daten des Sor11 erfe1 des eingelesen (Telle 2) und 
sortiert (Teil 3). Der Platz hierfür ist ja nun da! 

Zu Teil 3 gehört auch noch, daß die nun sortierten 
Daten auf dem Bildschirm ausgegeben werden. (Kann als 
Kontrolle dienen, ob das Programm fehlerfrei ist!) 

Teil 4 Uberschreibt dann das alte SEQ-File. Aber nicht 
mit den sortierten Daten, nein, denn das ist der 
Trick, mit den Eintragsnummern, die ebenfalls mitsor¬ 
tiert wurden! 

Diese Methode ist sehr speicherp1atz-sparend auf der 
Diskette. Während das erste File z. B. 10 KByte auf 
der Diskette belegte, benötigt das File dann nur noch 
ca. 2 KByte. Das alte File wurde durch Oberschreiben 
zu einem .BAK-File und kann dann gelöscht werden! 

Es wäre auch anders möglich, aber Sie sollen ja ver¬ 
schiedene Möglichkeiten kennen 1ernen. 

Anschließend folgt der letzte Teil (5) der nun folgen¬ 
des macht. Der Speicher wird wieder begrenzt. Die 
Daten werden wieder eingelesen und nun wird mit zwei 
gleichzeitig geöffneten Files gearbeitet. Von einem 
werden die Eintragnummern geholt (diese stehen in der 
sortierten Folge auf der Diskette) und in das zweiter 
File werden die kompletten Daten geschrieben. Nach dem 
gesamten Programmlauf stehen deshalb einmal die sor¬ 
tierten Nummern und zum anderen die komplette Datei 
(sortiert als SEQ-File) auf der Diskette. 

Bei RAMDISK2 wird es auf der Diskette noch "enger", 
aber es geht! Getestet wurde mit 225 Einträgen (je 363 
Zeichen pro Eintrag) und einer Länge des Sortierkri¬ 
teriums von 40 Zeichen. 

Das nachfolgende Programm bietet auch dem Auge ein 
schöneres Bild! 


8.2.3 Baslc-Listlng; S0RT2.BAS (fUr RAMD1SK2) 

100 'S0RT2.BAS fuer CPC 6128 
110 ’ 

120 MEMORY &3FFF:MEMORY HIMEM-1:0PEN0UT"dummy":CL0SE0UT 
130 MODE 2:PR INT"Datendisk einlegen - Taste":CALL &BB06 
140 GOSUB 1540:PR I NT *2,"Teil 1":sortfe1d=15 
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150 bswitch=&9FF0 

160 LOCATE 1,3:PRINT #4,"Lese die Binaerfi1 es ! " 

170 CALL bswitch,0:L0AD"raradisk2.dal",&4000 
180 CALL bswi tch, 4 :LQAD"ramdisk2. da2", S<4000 
190 CALL bswitch,5:LOAD"raradisk2.da3",&4000 
200 CALL bswitch,6:LOAD"ramdisk2.da4",A4000 
210 CALL bswitch,7:L0AD"ramdisk2.da5",&4000 
220 bank=0:CALL bswitch,bank 
230 ' 

240 PRINT #4,"Maskendaten ge 1esen!":start=&4000:adresse=start 
250 PRINT #4,"Oeffne SEQ-File!":OPENQUT"sort6128.seq" 

260 PRINT »4,"SEQ-File geoeffnet!" 

270 LOCATE 40,1:PRINT"Eintragsnummer: " 

280 PRINT *4,"Lese Daten aus dem Speicher und schreibe Sortierdaten auf Disk! 
290 * 

300 adresse=&4000 
310 FOR i = 1 TO fei der 

320 IF i = sortfe 1 d THEN i=felder +l:G0T0 340 
330 adresse=adresse+fe1d1en(i) 

340 NEXT i 

350 merkad=adresse 

360 ' 

370 FOR i = 1 TO eintraege 

380 IF adrasse >= &7FFF THEN adresse=merkad:G0T0 500 
390 PRINT #3,i 

400 b$=STRING$(feldien(sortfeld),"*"):a$=bt 

410 adlhig=INT(ad resse/256):adl1ow=adresse-adlhig»256 

420 a2=@ at+1:a3=@ a*+2 

430 POKE a2,adllow:P0KE a3,adlhig 

440 MID$(b»,l)=a$:a$="" 

450 PRINT #1,b$:PR INT #9,b$:b$ = "":a$ = "":a = FRE("") 

470 adresse=adresse+off 

480 NEXT i:CLS »l:G0T0 570 
490 ' 

500 IF bank=7 THEN CALL bswitch,0:GOTO 570 

510 IF bank-6 THEN bank=7 

520 IF bank=5 THEN bank=6 

530 IF bank=4 THEN bank=5 

540 IF bank=0 THEN bank=4 

550 CALL bswitch,bank:G0T0 390 

560 ' 

570 PRINT #4,"Schliesse Seq-FiIe!":CLOSEOUT:PR I NT *4,"Seq-File geschlossen!" 
580 ' 

590 CALL bswitch,0 

600 PRINT »4,"Wechsel zu Programmteil 2!" 

610 CLEAR:MEMORY i9FEF:CLS #1:CLEAR:GOSUB 1540 

620 DIM feIdinhaIt$(eintraege),enrt(eintraege),enr(eintraege) 

630 PRINT #2,"Teil 2":L0CATE 40,1:PR INT"Eintragsnummer: " 
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640 PRINT #4,"Qeffne Seq-File!":OPENIN"sort6128.seq" 

650 PRINT »4,"Seq-FIle geoeffnet!" 

660 PRINT #4,"Lese Sortierdaten!" 

670 FÜR i = 1 TO eintraege 

680 PRINT #3,i:INPUT #9,fe1dinha11$(i) 

690 feldinhalti(i)=UPPER$(feIdinhalt$(i)):enr(i)=i 

700 PRINT #1,fe1dinhaltt(i),enr$(i) 

710 NEXT i:CLOSEIN:PRINT #4, "Seq-Fi1e geschlossen!" 

720 CLS #1 
730 ' 

740 'Sortierteil 

750 PRINT #4,"Wechse1 zu Programmtei I 3!":PRINT *2,"Teil 3" 

760 PRINT *4,"Ich sortiere !":n=eintraege 
770 LOCATE 40,1:PR INT"Sortiervorgang: " 

780 DIM b(n) 

790 z=l:b(1)=1;b(2)=n 

800 1i=b(z):re=b(z+1)iz=z-2 

810 i = 1i: j = re 

820 m=INT( ( I i + re)/2) :gw»=fe1dinhaI t$(ra) 

830 IF feldinhalt$(i)>-gw$ THEN 850 

840 i=i+1:G0T0 920 

850 IF feldinhalt*(j)<=gu$ THEN 870 

860 j = j-1:G0T0 920 

870 IF i>j THEN 920 

880 h* = feldinhal t*(i) : f e 1 di nha 11$ < i ) = fe 1 dinha 11* ( j ): f e ldinhal t*( j)=h$ 

890 h=enr(i):enr(i)=enr(j):enr(j)=h 
900 i = i +1:PRINT# 3,i 
910 j=j-1 

920 IF i<=j THEN 830 
930 IF i>=re THEN 950 
940 z=z+2:b(z)=i:b(z+1)=re 
950 re=J 

960 IF liCre THEN 810 
970 IF zO-1 THEN 800 
980 ' 

990 PRINT #4,"Sortiervorgang beendet - Ausgabe der sortierten Daten! 

1000 FOR i = 1 TO n 

1010 PRINT #l,feldinhalt$(i),enr(i) 

1020 NEXT i 
1030 ' 

1040 PRINT #4,"Ausgabe beendet - schreibe Sortier-Nummern als SEQ-File!" 
1050 PRINT #2,"Teil 4":0PEN0UT"sort6128.seq" 

1060 FOR i = 1 TO n 

1070 PRINT #9,enr(i):PRINT #3,i 

1080 NEXT i:CL0SE0UT 

1090 PRINT #4,"Seq-File geschrieben! 

1100 PRINT #4,"Wechsel zu Programmtei 1 5" 

1110 ’ 
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1120 CLEAR:MEMORY &3FFF:G0SUB 1540 
1130 WINDOW #1,17,79,6,24:WIND0W #6,1,17,6,24 
1140 WINDOW #5,8,11,25,25:WIND0W #7,60,68,25,25 
1150 LOCATE 40,1:PR INT"Eintragsnummer:" 

1160 LOCATE 1,25:PRINT"Bank: ":LOCATE 40,25:PR INT'Numraer in der Bank: " 

1170 bswltch=&9FF0:CALL bswitch,0 
1180 PRINT #2,"Teil 5" 

1190 PRINT #4,"Lese den ersten Teil der Datei wieder ein !" 

1200 L0AD"ramdisk2. dal", Si4000 

1210 PRINT #4,"Datei eingelesen - lese sortierte Eintragsnummern und ... 

1220 FOR i = 1 TO 2000:NEXT i 

1230 PRINT#4,".. gebe die Eintraege sortiert auf dem Schirm und auf Disk aus!" 
1240 FOR i = 1 TO fe1 der:PRINT #6,fenam*(1):NEXT i 
1250 0PEN0UT"sort6128.sor":OPENIN ”sort6128.seq" 

1260 FOR i = 1 TO eintraege 

1270 INPUT #9,enr:PRINT #3,enr;"/"i 

1280 block=INT((enr-l)/anzprobank) 

1290 IF bIock=0 THEN bank=0 

1300 IF block=l THEN bank=4 

1310 IF bIock=2 THEN bank=5 

1320 IF b1ock=3 THEN bank=6 

1330 IF b1ock=4 THEN bank=7 

1340 CALL bswltch,bank 

1350 IF enr>anzprobank THEN enr=enr-anzprobank:GOTO 1350 

1360 PRINT #5,bank:PRINT #7,enr 
1370 ’ 

1380 adresse=8<4000+ (enr-1) *of f 

1390 FOR x = 1 TO fe1 der 

1400 b*=STRING#(feldlen(x),"»"):a*=b$ 

1410 adlhlg=lNT(adresse/256):adllov=adresse-adlhig«256 

1420 a2=0 a*+l:a3=@ a* + 2 

1430 POKE a2,adllow:P0KE a3,adlhig 

1440 MID#(b»,l)=a* 

1450 PRINT #1,b$:PRINT #9,b#:a$ = "":b* = "" :a = FRE<"") 

1470 adresse=adresse + feId1en(x ) 

1480 NEXT x:CLS #1 

1490 NEXT l:CLS #1:CLS #4:PRINT#4,"Schliesse die Fi 1 es!":CL0SEIN:CL0SE0UT 
1500 CLS #2:CLS #3:CLS #6:PRINT #1,"Programmlauf beendet!" 

1510 LOCATE 1,25:PRINT"Bi tte eine Taste druecken" :CALL 8.BB06 

1520 MODE 2:END 

1530 .--- 

1540 MODE 2:PRINT"Programm: S0RT2 (6128)":PRINT:PRINT 
1550 d*="«.bak":IERA,d* 

1560 WINDOW #1,1,79,5, 24:WINDOW #2,25,35,1,1 

1570 WINDOW #3,60,75,1,1:WINDOW #4,1,79,3,3 

1580 PRINT #4,"Lese die Maskendaten":OPENIN"ramdlsk2.msk" 

1590 INPUT #9,buffanf*,buffend*,eintraege,off,feIder 
1600 anzprobank 1 INT(eintraege/5) 
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1610 DIM fenam*(felder),fe1d1en<feI der) 

1620 FÜR 1 = 1 TO fei der 

1630 INPUT #9, fenam*(i),feldlen(l),xposl,yposl 
1640 fenam*(1)=LEFT*(fenam*(1),15) 

1650 NEXT i 

1660 CL0SEIN:PRINT*4,"Maskendaten gelesen, File geschlossen!" 

1670 RESTORE: FOR 1 = «<9FF0 TO &9FF6: READ x* : x=VAL( "t"+x*) :P0KE i,x:NEXT 
1680 RETURN 

1690 DATA dd,7e,00,cd,5b,bd,c9 


Da die B11dschirmausgaben sehr viel Zelt kosten, hier 
nun eine Kurzversion fUr die Benutzung mit einem Lauf¬ 
werk. 


8.2.4 Baslc-Llstlng; SORTKURZ.BAS 
100 MODE 2.‘PRINT"Sortierprogramm SORTKURZ 

110 PRINT"Bltte Datendisk elnlegen - Taste druecken":CALL &BB06 
120 MEMORY &3FFF:G0SUB 640:sortfe1d=15 

130 PRINT"Lese Binaerf11 es":CALL bswitch,0:LOAD"ramdisk2.dal", la 

140 CALL bswltch,4:L0AD"ramdisk2.da2",la:CALL bswltch,5:L0AD"ramdlsk2.da3",la 

150 CALL bswitch,6:L0AD"ramdisk2.da4",1a:CALL bswitch,7:LOAD"ramdisk2.da5",1a 

160 bank=0:CALL bswitch,bank:0PEN0UT"sort6128.seq":adresse=la 

170 FOR 1 = 1 TO fei der: IF i=sortfeld THEN i=felder +1:GOTO 190 

180 adresse=adresse + fe1d1en( 1) 

190 NEXT 1:merkad=adresse 

200 FOR 1 = 1 TO eintraege:IF adresse >= t7FFF THEN adresse=merkad:G0T0 260 
210 b*=STRING*(feldlen(sortfeld),"»"):a*=b* 

220 adlhig = INT<adresse/256) :adl 1 ow=adresse-adlhig»256 
230 a2=@ a*+l:a3=0 a*+2:P0KE a2,adl1ow:P0KE a3,adlhig 

240 MID*<b*, l)=a*:a*="":PR!NT #9,b*:b* = "".‘a=FRE(""):adresse=adresse + off 
250 NEXT 1::G0T0 300 

260 IF bank=7 THEN CALL bswltch,0:GOTO 300 

270 IF bank-6 THEN bank=7 ELSE IF bank=5 THEN bank=6 

280 IF bank=4 THEN bank=5 ELSE IF bank=0 THEN bank=4 

290 CALL bswitch,bank:adresse=merkad:G0T0 210 

300 CL0SE0UT:CALL bswltch,0:CLEAR:MEMORY &9FEF:CLEAR:G0SUB 640 

310 DIM fe1dlnhaIt*(elntraege),enr*(eintraege),enr(eintraege) 

320 OPEN!N"sort6128.seq":FOR 1 = 1 TO eintraege:INPUT #9,fe1dlnha1t*(1) 

330 feldinhalt*(l)=UPPER*(fe1dlnha1t»(1)):enr(1)=1:NEXT i:CLOSEIN 
340 PRINT"Ich sortiere!":n=eintraege:DIM b(n):z=l:b(1)=1:b(2)=n 
350 Ii=b(z):re=b(z + l) :z=z-2 

360 1=11:j=re:m=INT<(1i+re)/2):gw*=fe1dlnha1t*(m) 

370 IF fe1dlnhalt*(i)>=gw* THEN 390 

380 1=1+1:G0T0 440 

390 IF feldinhalt*(j)<=gw* THEN 410 


169 



Hllfs- und Zusatzprogramme 


400 j = j-1:G0T0 440 
410 IF l>j THEN 440 

420 h$=feldinhalt*(i):fe1dinhalt*(i)=feldinhalt*(J)ifeldinhalt*(j>=h* 

430 h=enr(i)senr(i)=enr(j):enr(j)=h:1=1+1:j=J-1 
440 IF l<=j THEN 370 ELSE IF l>=re THEN 460 
450 z=z+2:b(z)=1:b(z+1)=re 
460 re=j:IF 1l<re THEN 360 
470 IF zO-1 THEN 350 

480 PRINT"Ich schreibe die sortierten Eintragsnummern! 

490 0PEN0UT"sort6128.seq":F0R i = 1 TO n :PR 1NT #9,enr(1):NEXT i:CLOSEOUT 

500 CLEAR:MEMORY *<3FFF:G0SUB 640:CALL bsuitch,0 

510 PRINT"Ich lade den ersten Datenb1ock!":L0AD"ramdisk2.dal",Ia 

520 OPEN IN "sort6128.seq":0PEN0UT"rd6128.sor" 

530 PRINT"Lesen des sortierten Files und Schreiben als SEQ-File! 

540 FOR 1 = 1 TO eintraege:INPUT *9,enr : b1ock=1NT((enr-1)/anzprobank) 

550 IF b1ock=0 THEN bank=0 ELSE IF btock=l THEN bank=4 
560 IF block=2 THEN bank=5 ELSE IF block=3 THEN bank=6 
570 IF b1ock=4 THEN bank=7 
580 CALL bswitch,bank 

590 IF enr>anzprobank THEN enr=enr-anzprobank:GOTO 590 

600 adresse=la+(enr-l)»off:F0R x = 1 TO feI der:b*=STRING*(feId1en<x),"»"):a$=b» 
610 adlhig=INT(adresse/256):adl1ow=adresse-adlhig*256:a2=0 a*+l:a3=@ a*+2 
620 POKE a2,adl1ow:POKE a3,adlh1g:MID*(b$,1)=a»:a* = "":a = FRE(0):PRINT #9,b* 

630 adresse=adresse+feldlen(x):NEXT x:NEXT 1:CLOSEIN:CLOSEOUT:MODE 2:END 
640 OPENIN"ramdisk2.msk":INPUT #9,buffanf$,buffend$,eintraege,off,fe1 der 
650 anzprobank=INT(elntraege/5):DIM fenam$(felder),feldlen(felder) 

660 FOR 1 = 1 TO fei der:INPUT #9,fenam*(1),fe1d1en(i),xpos1,yposi 
670 fenam$(i)=LEFT*(fenam*(i), 15) :NEXT 1 : I a=«,4000: bswi tch=S,9FF0: CLOSEIN 
680 RESTOREiFOR i = bswitch TO bswitch+6:READ xt: x = VAL( "&"+x*) :POKE i,x:NEXT 
690 a*="».bak":IERA,@a$ 

700 RETURN 

710 DATA dd,7e,00,cd,5b,bd,c9 


Da ich schon des öfteren hingewiesen habe, daß auch 
mit zwei Laufwerken gearbeitet werden kann, hier zur 
Demonstration eine Programmversion mit zwei Laufwer¬ 
ken. Es spielt dabei keine Rolle, ob das zweite Lauf¬ 
werk zur 3-Zoil- oder zur 5,25-Zo1 1-Farn 11Ie gehört. 


8.2.5 Baslc-Llsting: S0RTK2.BAS 
100 MODE 2:PRINT"Sortierprogramm S0RTK2 

110 PRINT"Bitte Datendisketten einlegen - Taste druecken":CALL &BB06 

120 !B:a* = "«.* n :!ERA,0a*: IA 

130 MEMORY &3FFF:G0SUB 670: sortf e 1 d = 15 

140 PRINT"Lese Binaerfi1 es":CALL bswitch,0:!A:L0AD"ramdisk2.dal", la 
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150 CALL bswitch,4:L0AD"ramdisk2.da2",1a:CALL bswitch,5:LOAD"ramdisk2.da3 n ,la 
160 CALL bswitch,6:LCAD"ramdisk2.da4",1a:CALL bswitch,7:L0AD"ramdisk2.da5",la 
170 bank=0:CALL bswitch,bank:!B:0PEN0UT"sort6128.seq":adresse=la 
180 PRINT"Schreibe Datenfile zum Sortieren 

190 FOR 1 = 1 TO fe1 der:IF i=sortfeld THEN i = felder +1:G0T0 210 
200 adresse=adresse+fe1d1en(i) 

210 NEXT i:merkad=adresse 

220 FOR 1 = 1 TO eintraege: IF adresse >= &7FFF THEN adresse=merkad :G0T0 280 
230 b$=STRING*(feldlen(sortfeld),"*"):a*=b$ 

240 adlhig=INT(adresse/256):adl1ow=adresse-adlhig*256 
250 a2=@ a$+l:a3=@ a$+2:P0KE a2,adl1ow:P0KE a3,adlhig 

260 MID$(b$,l)=a$:a* = "":PR INT #9, b*:b$ = "":a = FRE(""):adresse=adresse+off 
270 NEXT i::G0T0 320 

280 !F bank=7 THEN CALL bswitch,0:G0T0 320 

290 IF bank=6 THEN bank=7 ELSE IF bank=5 THEN bank=6 

300 IF bank=4 THEN bank = 5 ELSE IF bank = 0 THEN bank=4 

310 CALL bswitch,bank:adresse=merkad:GOTO 230 

320 CLOSEOUT:CALL bswitch,0:CLEAR:MEMORY 8<9FEF:CLEAR:GOSUB 670 

330 DIM fe1dinhaIt*(eintraege),enr*(eintraege),enr(eintraege) 

340 ! B:OPENIN"sort6128.seq":F0R I = 1 TO eintraege:INPUT #9,fe1dinha11$(i) 

350 feldinhalt*(i)=UPPER$(feldinhalt$(i)):enr(i)=i:NEXT i:CLOSEIN 
360 PRINT"Ich sortiere!":n=eintraege:DIM b(n): z- 1:b(1)=1:b(2)=n 
370 1i=b(z):re=b(z+1):z=z-2 

380 i=1i:j=re:m=1NT<<1i+re)/2):gw$=feIdinha1t$(m> 

390 IF feldinhalt$(i)>=gw* THEN 410 

400 i=i+1:GOTO 460 

410 IF feldinhalt<(j)<=gw$ THEN 430 

420 j = j-1:GOTO 460 

430 IF i>j THEN 460 

440 h$ = feldinhalt$(i) :fe!dinhalt*<i)=fe1dinha11*<j):feldinhalt$(j)=h$ 

450 h=enr(i):enr(i)=enr(j):enr(j)=h:i=i+l:j=j-l 
460 IF i<=j THEN 390 ELSE IF i>=re THEN 480 
470 z=z+2:b(z)=l:b(z+l)=re 
480 re=J:IF li<re THEN 380 
490 IF zO-1 THEN 370 

500 PRINT"lch schreibe die sortierten Eintragsnummern! 

510 0PEN0UT"sort6128.seq":F0R i = 1 TO n:PR 1 NT #9,enr(i):NEXT i:CLOSEOUT 
520 CLEAR:MEMORY &3FFF:G0SUB 670:CALL bswitch,0 

530 IA:PRINT"Ich lade den ersten Datenb1ock!":L0AD"ramdisk2.dal", 1a 
540 I B:OPEN IN "sort6128.seq":0PEN0UT"rd6128.sor" 

550 PRINT"Lesen des sortierten Files und Schreiben als SEQ-File! 

560 FOR i * 1 TO eintraege:INPUT #9,enr:b1ock=INT((enr-1)/anzprobank) 

570 IF b 1 ock = 0 THEN bank=0 ELSE IF block = l THEN bank=4 
580 IF block=2 THEN bank=5 ELSE IF block=3 THEN bank=6 
590 IF b1ock=4 THEN bank=7 
600 CALL bswitch,bank 

610 IF enr>anzprobank THEN enr=enr-anzprobank:GOTO 610 

620 adresse=!a+(enr-l)«off:FOR x = 1 TO fe1 der:b* = STRING«(feidIen(x>,"*"):a$ = b* 
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630 adlhi g= I NT(adresse/256) :adl I ow=adresse-adlhi g»256 :a2=@ a$+l:a3=@ ai+2 
640 POKE a2,adllow:P0KE a3,adlhig:M1D*(b$,1)=a*:a*="":a=FRE<0):PR!NT #9,b* 
650 adresse=adresse+feldlen(x):NEXT x:NEXT 1:CLOSEIN:CLOSEOUT:MODE 2 
660 CAT:1A:CAT:END 

670 !A:0PEN1N"ramdisk2.rosk":INPUT *9,buffanf$,buffend*,eintraege,off,felder 
680 anzprobank=lNT(eintraege/5):DlM fenam$(felder),feldlen(felder) 

690 FOR i = 1 TO felderUNPUT #9,fenam»<i),fe1d1en(i),xposi,yposi 
700 f enam$ (i) =LEFT$( fenam$(i),15):NEXT i: I a=!<4000: bswi tch=&9FF0:CLOSEIN 
710 RESTORE:FOR 1 = bswitch TO bswi tch+6: READ x»: x = VAL("S<" + x$) :POKE l,x:NEXT 
720 !B:a*="».bak":!ERA,@a* 

730 RETURN 

740 DATA dd,7e,00,cd,5b,bd,c9 


Damit glaube ich, wurden genügend Wege aufgezeigt, wie 
Daten umgewandelt und sortiert werden können. Auch fllr 
die Programme RANDOMD1 und RAND0MD1 sind diese Metho¬ 
den einsetzbar. Ob Sie allerdings - gerade beim Pro¬ 
gramm RAND0MD2 - noch genügend Speicherplatz fllr den 
Sortiervor gang im CPC oder fUr die Files auf der Dis¬ 
kette haben, kann ich leider nicht aussagen. Falls Sie 
Platzmangel haben, hilft dann die Längenbegrenzung der 
zu sortierenden Einträge weiter (b$=LEFT$(b$,x)). 
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8 .3 Backup fUr Vortex-X-Modu1-Laufwerke 

Bei Dateien ist es sehr wichtig, daß ausreichender 
Datenschutz gewährleistet ist. Ich meine damit nicht 
den Datenschutz, von dem sonst immer gesprochen wird, 
nämlich der unbefugten Benutzung von Daten, sondern 
die Sicherheit, daß bei Defekt oder Verlust des Daten¬ 
trägers nicht alles wieder neu eingegeben werden muß. 

Für das Programm RAND0MD2 aber bedeutet das, daß für 
BACKUP-Disketten insgesamt 720 KByte kopiert werden 
müssen. Eine Menge, die nicht immer Freude bereitet. 
Dies werden vor allem die CPC-Besitzer bemerken, die 
nur einen CPC mit 64 KByte RAM besitzen. 

Aber auch bei diesen sollten die Sicherheitskopien 
nicht vernachlässigt werden. 

Ein "Vierte 1 Stündchen" fUr die Sicherheitskopien pro 
"Arbeitstag" ist immer noch besser als tagelange 
Neue ingaben. 

Nun ein paar Worte zum ersten Programm. Auch hier habe 
ich wieder berücksichtigt, daß nichts oberhalb von 
&9FFF geschieht. Erweiterungen für den CPC dürften 
deshalb nicht beeinflußt werden und auch umgekehrt. 

Wichtig zu vermerken ist noch folgendes: 

Durch viele CP/M-Kopierprogramme werden die ersten 
Spuren, die ja für CP/M reserviert sind, nicht 
kopiert! 

Auf diese werden durch den Programmlauf jener Hilfs¬ 
programme anstelle von Daten CP/M-Sektoren geschrie¬ 
ben. 

Die nachfolgenden Programme verhalten sich anders. Sie 
lesen Jeden Sektor vom Original (der Que11diskette) 
und schreiben sie auf die Zie1diskette. 

Deshalb können die beiden Programme DUPLI1 und DUPLI2 
immer dann eingesetzt werden, wenn Komp 1ett-Kopien von 
Disketten erstellt werden sollen. Es muß also nicht 
immer erst CP/M gestartet werden (eine Sache, die mich 
immer wieder bei vielen Hilfsroutinen stört)! 


173 



Hllfs- und Zusatzprogramme 


Denken Sie aber immer daran wenn Sie Kopien erstellen, 
daß Sie dann, wenn Sie echte CP/M-Disketten kopieren 
und diese weitergeben das COPYRIGHT verletzen. 

Bei beiden Programmen stehen die Daten für das Maschi¬ 
nenprogramm im Basiclisting selbst. Diese sind wieder 
die Daten fUr den Diskettendirekt-Zugriff (DISC2) nur 
für einen anderen Speicherbereich assembliert. 

Die Programme teilen immer mit, was Sie zu tun haben. 
Das Programm DUPLI1 arbeitet im Prinzip wie das Pro¬ 
gramm RAND0MD2. DUPLI2 ist eine Kombination von RAM- 
D1SK2 mit RAND0MD2. Deshalb entfallen nähere Programm¬ 
beschreibungen fUr diese Hi1fsroutinen. 

Aber einen Punkt sollten Sie beherzigen: Solange Sie 
sich nicht sicher sind, daß das Programm fehlerfrei 
abgeschrieben wurde, sollten Sie niema1s mit "wichti¬ 
gen" Disketten arbeiten und vor allem sollte auch auf 
der Que11diskette der Schreibschutz "eingeschaltet" 
sein. Es könnte ja sein, daß Sie versehentlich von der 
Zieldiskette lesen lassen und dann auf die Quelldis¬ 
kette schreiben wollen. Gut, wenn dann der Schreib¬ 
schutz vorhanden ist! 

Beide Programme arbeiten unter VD0S2. Das heißt, Sie 
laden das Programm DUPLI1 von Ihrer Programmdiskette 
(beispielsweise vom eingebauten 3-Zo1 1-Laufwerk beim 
CPC 664), der Kopierzugriff erfolgt aber auf das X- 
Lauf werk. 

Die Zie1disketten müssen bereits formatiert sein, denn 
beide Kopierprogramme enthalten keinen Formatierteil. 


8.3.1 Basic-Listing: DUPL11.BAS 

100 'DUPLI1.BAS 
110 ' 

120 MEMORY Si2FCF:CALL MJB4E:MODE 2 

130 PR 1NT"DUPL11.BAS - Backup-Programm fuer Vortex-5,25-ZolI (28K) (c) by L.M 
140 LOCATE 20,12:PRINT"Buffer:":L0CATE 1,25:PR1NT"J0B: " 

150 ' 

160 Jobfenster= : 7:Lesefenster = l:Schreibfenster = 2:bufferfenster = 3 
170 spurfenster=4:bufferfenster=5 
180 ' 

190 WINDOW »jobfenster,5,79,25,25:W1NDOW »Lesefenster,5,60,4,9 
200 WINDOW »Schreibfenster,5,60,15,20:WINDOW »spurfenster,74,79,1,1 
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210 WINDOW »bufferfenster,28,35,12,12 
220 ' 

230 PRINT »jobfenster,"Lesen des Maschinen/Programmes! 

240 GOSUB 860:PRINT »jobfenster,"Maschinen-Programm erzeugt 
250 ' 

260 'Festlegungen und Definitionen fuer die Maschinen-Routine 
270 mdr 1 ve=8<2FFA:mbefehl =fc2FF6: mbuf f er =8<2FFE :mf ormse=8<2FFC 
290 mtrack = 8<2FFB: mpgstart=&2FD0 
300 ’ 

310 'Befehle fuer den Diskettenzugriff 
320 1 esen=Si84: schreiben=8<85 
330 ’ 

340 'sonstige Festlegungen 

350 buf f start=&3000 :seclen=512: secanzges = 160: war te=8(BB06 

360 jobl$="Bitte die Que11diskette einlegen und eine Taste drueckenI"+CHR$(7) 
370 job2$="Bitte die Zieldiskette einlegen und eine Taste druecken1"+CHR*(7) 
380 inv$=CHRt(24) 

390 ' 

400 PRINT * Iesefenster,inv*:CLS »lesefenster 
410 PRINT »schreibfenster,inv$:CLS »schreibfenster 
420 ’ 

430 FOR teil =0 TO 28:CLS # I esef enster :CLS # schreibfenster 
440 'Lesen 

450 PRINT »Jobfenster,jobl*:CALL warte:befehl=1esen 

460 PRINT » jobfenster,"Lese QueI1diskette . 

470 buffer=buffstart 

480 FOR spur = 0 TO 5 

490 track=teiI*6+spur:IF track=secanzges THEN 580 

500 PRINT * 1esefenster,"Spur :"track" "; 

510 FOR Sektor=l TO 9 

520 PRINT »lesefenster,Sektor!" "! 

530 GOSUB 730 

540 NEXT sektor:PRINT »lesefenster 

550 NEXT spur 

560 ’ 

570 'Schreiben 

580 PRINT »Jobfenster,job2*:CALL warte:befehl=schreiben 

590 PRINT « jobfenster,"Schreibe Zieldiskette . 

600 buffer =buffstart 

610 FOR spur = 0 TO 5 

620 track=tei1*6+spur:IF track=secanzges THEN 840 

630 PRINT »Schreibfenster,"Spur :"track" "i 

640 FOR Sektor=l TO 9 

650 PRINT »schreibfenster,sektor!" "i 

660 GOSUB 730 

670 NEXT sektor:PRINT »schreibfenster 

680 NEXT spur 

690 ' 
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700 NEXT teil:END 
710 ' 

720 'Disketten-Zugriffe 

730 PRINT »bufferfenster,HEX«(buffer> 

740 PRINT »spurfenster,track 

750 POKE ratrack,track:P0KE mdrive.l 

760 bufferhigh=INT(buffer/256):buff erlow=buffer-bufferhigh*256 

770 POKE mbuffer,buffer 1ow:P0KE mbuffer + 1,bufferhlgh 

780 POKE mformse,Sektor 

790 POKE mbefehl,befehl 

800 CALL mpgstart 

810 buffer=buffer+seclen 

820 RETURN 

830 ’ 

840 MODE 2:PRINT"Die Diskette wurde dupliziert":END 
850 ' 

860 a= 12240:e= 12279:zb=2000 

870 FOR 1 =a TO e: READ d* : IF LEFT* (d*, 1) <>"!," THEN 900 
880 IF psOVALfd») THEN PRINT"Fehler Zelle "zb:END 
890 ps-0:d* = "": IF l=e THEN 930 ELSE 1 = 1-1 :zb=zb+l :G0T0 920 
900 d* = "S<" + d* 

910 POKE 1,VAL(d$):ps=ps+VAL(d$) 

920 IF 1 < e THEN NEXT 1 
930 RETURN 
940 ' 

2000 DATA 3A,FA,2F,32,FA,2F,21,F6,2F,CD,D4,BC,22,F7,2F,79,&0822 

2001 DATA 32, F9, 2F, 21, FA, 2F, 5E, 21, FB, 2F, 56,21, FC, 2F, 4E, 2A, S<0667 

2002 DATA FE,2F,DF,F7,2F,C9,84,&047F 


Diejenigen, die gezwungen sind, mit diesem Programm zu 
arbeiten, (weil sie nur einen 64-KByte-CPC haben) wer¬ 
den die CPC 6128-Bes1tzer beneiden, denn mit dem nach¬ 
stehenden Programm ftlr diesen CPC-Typ braucht der Dis¬ 
kettentausch-Vorgang nur je neunmal durchgefllhrt zu 
werden. Also neunmal "Schreiben" und neunmal "Lesen". 

Das Programm ist Im wesentlichen so wie eine Kombina¬ 
tion von RAMDISK2 mit RAND0MD2. Volle 80 KByte werden 
dabei als Datenbuffer benutzt. 


8.3.2 Baslc-Llsting: DUPLI2.BAS 

100 MEMORY &2FCF:CALL «<BB4E:M0DE 2: inv»=CHR* (24) 

110 PRINT inv$"DUPL12 - Disketten-Dup1izier-Programm (c) by Lothar Miedel"inv» 
120 LOCATE 2,3:PRINT"Spur:":L0CATE 65,3:PRINT"Bank: " 

130 LOCATE 20,3:PRINT"Laufende Sektor-Nummer: 
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140 LOCATE 60,5:PRINT"Bufferadresse: 

150 LOCATE 1,25:PRINT"JOB: 

160 ' 

170 spurfenster=l:lfdsecfenster=2:Sektorfenster=3:bankfenster=4 
180 secanzfenster=5:bufferfenster=6:jobfenster=7 
190 ’ 

200 buf f Start=8(4000: buf fer = buffstart: sec len=512 

210 jl*="Bitte":j2*="diskette elnlegen und eine Taste druecken!" 

220 ' 

230 WINDOW «spurfenster,8,14,3,3 
240 WINDOW #lfdsecfenster,46,52,3,3 
250 WINDOW «sektorfenster,2,77,10,19 
260 WINDOW «bankfenster,75,79,3,3 
270 WINDOW «bufferfenster,75,79,5,5 
280 WINDOW »jobfenster,6,79,25,25 
290 ' 

300 PRINT «jobfenster,"Erzeuge das Maschinen-Programm! 

310 GOSUB 990:PRINT »jobfenster,"Maschinen-Programm erzeugt! 

320 ' 

330 'Festlegungen und Definitionen fuer die Maschinen-Routine 
340 mdr ive=8(2FFA:mbefehl =8(2FF6 :mbuffer=8(2FFE :mformse=8(2FFC 
350 mtrack=8(2FFB:mpgstart=8(2FD0:blsw=8(3000:warte=8(BB06:f lush=8(BD3D 
360 ' 

370 'Befehle fuer den Diskettenzugriff 

380 1 esen=8(84: schreiben=8(85 :befehl=lesen:b*="Lese" 

390 ’ 

400 PRINT «Sektorfenster,inv*:CLS »Sektorfenster 

410 PRINT »spurfenster,track 

420 PRINT »bufferfenster,HEX«(buffer ) 

430 ' 

440 PRINT «bankfenster,bank 

450 PRINT »jobfenster, jl*;" Que 11"; J2» :CALL 8<BB06 

460 PRINT * Jobfenster,b«;" Diskettensektoren 

470 alti=l:befehl=lesen 

480 FOR i = 1 TO 1440 

490 secnr = i-l:PRINT «Ifdsecfenster, i 

500 track=INT(secnr/9) 

510 sektor=(secnr MOD 9)+l 
520 GOSUB 880 

530 pruefzahl= (secnr MOD 32)+1 
540 IF alttrack = track THEN 560 

550 PRINT »spurfenster,track:a1ttrack=track:PRINT »sektorfenster," " 
560 PRINT »sektorfenster,Sektor" "; 

570 buffer=buffer+seclen:PRINT »bufferfenster,HEX»(buffer) 

580 GOSUB 620 

590 NEXT 1:PRINT »jobfenster,"Diskette dupliziert!" 

600 END 
610 ’ 
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620 IF pruefzahl 032 THEN 670 
630 block=block+l:buffer=buffstart 
640 IF b1ock=5 THEN block=0: GOSUB 690 
650 IF b1ock=0 THEN bank=block ELSE bank=block+3 
660 PRINT Ibankfenster,bank 
670 RETURN 
680 ' 

690 PRINT Ibankfenster,inv*:PRINT Ibankfenster,bank 

700 LOCATE 35,5:PRINT Ijobfenster,"Wechsel: "wechse1+1:Wechsel=wechsel + 1 
710 IF befehl=1esen THEN PRINT IJobfenster,jl»J" Zlel"Sj2* 

720 IF befehl=schreiben THEN PRINT IJobfenster,j1* ! " Quell"!j2* 

730 BORDER 23:CALL flush:CALL warte:PRINT Ibankfenster,bank 
740 CLS Isektorfenster:BORDER 1 
750 ' 

760 IF befehl=schreiben THEN befeh 1 = 1esen:b$="Lese":GOTO 800 
770 IF befehl- lesen THEN befehI=schreiben!b$="Schreibe":1 = 1-160 
780 sektor=(1 MOD 9) 

790 ' 

800 CLS Isektorfenster 

810 PRINT I jobfenster,b*!" Diskettensektoren 
820 IF sektor=9 THEN 840 

830 FOR k = l TO sektor:PRINT ISektorfenster," ";:NEXT k 
840 PRINT Ibankfenster,inv$ 

850 RETURN 

860 '-- 

870 'Dlsketten-Zugriffe 

880 PRINT Ibufferfenster,HEXI(buffer ) 

890 PRINT Ispurfenster,track 

900 CALL bl sw,bank 

910 POKE mtrack,track:POKE mdrive.l 

920 bufferhigh= INTibuffer/256):buffer 1ow=buffer-bufferhigh*256 

930 POKE mbuffer,bufferlowiPOKE rabuffer+1,bufferhigh 

940 POKE mformse,Sektor 

950 POKE mbefehl,befehl 

960 CALL mpgstart 

970 RETURN 

980 ' 

990 a= 12240:e= 12295:zb=2000 

1000 FOR 1 =a TO e:READ d*:IF LEFTI(d$,1)<>"&" THEN 1030 
1010 IF psOVAL(dl) THEN PRINT"Fehler Zeile "zb:END 
1020 ps=0:d* = "": IF i=e THEN 1060 ELSE i = 1-1: zb=zb + l :GOTO 1050 
1030 d* = "8<"+d* 

1040 POKE 1,VAL(d$):ps=ps+VAL(d$) 

1050 IF 1 < e THEN NEXT 1 
1060 ' 

1070 RETURN 
1080 ' 

2000 DATA 3A, FA, 2F, 32, FA, 2F, 21, F6,2F, CD, D4, BC, 22, F7, 2F, 79,8i0822 
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2001 DATA 32, F9,2F, 21, FA, 2F, 5E, 21,FB,2F,56,21,FC,2F,4E,2A, 8<0667 

2002 DATA FE, 2F, DF, F7, 2F, C9,84, 0, 0, 0,0,0, 0, 0, 0,0,8<47f 

2003 DATA dd,7e,00,cd,5b,bd,c9,«<0409 


Ara Ende dieser beiden Listlngs kann ich mich nur 
wiederholen: 


BACKUP.BACKUP.BACKUP ! 

Ich weiß es ist lästig, dauernd Disketten tauschen zu 
müssen, aber irgendwann macht es sich auch bei Ihnen 
e1nma1 bezah1t. 

Gerade "Profis", die schon lange mit Computern arbei¬ 
ten und es eigentlich wissen sollten, nehmen die Sache 
mit der Sicherheit oft auf die leichte Schulter. 

"Es ist mir schon lange nichts mehr passiert!" 

Diesen Satz aussprechen zu können, ist schön und zeigt 
auch, daß derjenige gut mit seinem Rechner system umge¬ 
hen kann, aber wenn es eben passiert, dann ist es zu 
spät! 
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8.4 Disketten ln Form gebracht 

(Spezia1-Formate fUr Disketten) 

Bei den Programmen fUr den RANDOM-Zugr1ff werden Dis¬ 
ketten in unterschiedlichem Maße mehr genutzt, als es 
sonst geschieht. 

Das wichtigere dabei ist aber, daß die Disketten so 
vorbereitet werden, daß das Füllzeichen geschrieben 
wird. 

Deshalb sind auch spezielle Diskettenformate erforder¬ 
lich. 

Hier das erste Formatier-Programm, das die 3-Zoll-Dis- 
ketten vorbereitet. 


8.4.1 Basic-Listing: SPEZFORM.BAS 

100 'SPEZFORM.BAS 
110 • 

120 MODE 1:PRINT"Spezialformstier-Programm" 

130 PR1NT" = = = = = = = = = = = = =============":PR INT: PR INT 

140 ' 

150 MEMORY &7FFF 

160 LOAD"randomdl. mpg", 8(8000 

170 PRINT"Bltte die zu formatierende Diskette 

180 PRINT"einlegen und eine Taste druecken! 

190 CALL 8(BB06 : PR I NT: PR I NT 

200 suche=8(81BD:exe=8(81D4: f ormtab=8(81F4 :buf f er = 8(9000: xx = 0: usernummer=0 
210 extdpbl=8(A890:extdpb2=8,A8D0 

220 f i 1 lbyte=8(2E: 1 esen=8(84: schre iben=8(85 : forma tieren=8(86: dr ive=0 
230 IF drive=0 THEN extdpb=extdpbl ELSE extdpb=extdpb2 
240 ' 

250 'Komplette Diskette formatieren 
260 befehl=formatieren:CALL suche,befehl 
270 IF drive=0 THEN POKE extdpb+19,fi1Ibyte 
280 FOR i = 0 TO 39 

290 FOR j = 0 TO 8:POKE <formtab+J»4),i:NEXT j:track=i 
300 CALL exe, f ormtab, 8(C1, track, dr i ve: NEXT i 
310 ' 

320 'Bufferdaten vorbereiten 

330 name$ = ’’DATEI ! ! ! " : ext* = "DAT" : schutz=ASC(LEFT* (ext*, 1) ) +8(80 
340 MID*(ext*,1,1)=CHR$(schütz):gesamtname*=name*+ext* 

350 FOR i = 0 TO 10:w(i)=ASC(MID$(gesamtname*,i+1,1)):NEXT i 
360 block=2:adresse=buffer-1 

370 FOR i = buffer TO buffer+8(170:POKE i,0:NEXT i 
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380 • 

390 FOR x = 0 TO 11:adresse=adresse+l:P0KE adresse, usemummer 
400 ' 

410 FOR 1 = 1 TO 11:adresse=adresse + l:P0KE adresse,u(1-1):NEXT i 
420 adresse=adresse+4:F0R i = 1 TO 16:adresse=adresse+l 

430 POKE adresse,bIock:b1ock=b1ock + 1: IF block=8iB4 THEN x=12:1=17:G0T0 440 
440 NEXT 1:NEXT x 

450 'Bufferinha1t ln 1. Sektor schreiben 
460 befeh I=schreiben:CALL suche,befehl 
470 CALL exe, buf f er, tiCl, 0,0 

480 PRINT"Der CAT-Befehl zeigt, dass die Diskette 
490 PRINT"Spezialformat hat und nun 359 Sektoren 
500 PRINT"zur Verfuegung stehen! 

510 'Fillerbyte wieder korrigieren 
520 POKE extdpb, t<E5 
530 IF drive=l THEN !B 
540 CAT 

550 IF drive= 1 THEN !A 


Neben dem Füllzeichen wird die 3-Zo11-D1skette auch so 
vorbereitet, daß unter normalen Bedingungen kein File 
mehr darauf abgespeichert werden kann. Eine zusätz¬ 
liche Maßnahme, die Daten zu schlitzen. 

Wird beim vorstehenden Programm der Wert von drive auf 
1 geändert, dann erfolgt die Formatierung ln einem zu¬ 
sätzlich angeschlossenem Zwe111 auf werk. Dadurch sehen 
Sie auch, daß auch bei der Dateiverwaltung RAND0MD1 
mit zwei Laufwerken gearbeitet werden kann. Es muß nur 
im Basiclisting RAND0MD1 ebenfalls geändert werden. 


Auch beim Programm RAND0MD2 sollen die Füllzeichen be¬ 
reits bei der Formatierung geschrieben werden. Hierzu 
dient VORFORMX.BAS. 

Wenn Sie beide Programm 1ängen vergleichen, werden Sie 
bemerken, daß das nun folgende wesentlich kurzer ist. 
Dies hat zwei Gründe. Erstens kann ein Formatier-Auf - 
ruf bei den X-Modu1-Laufwerken durch einen RSX-Befehl 
erfolgen und zum anderen wird kein Sektor mit einem 
Inhalt bedacht, wie dies bei SPEZFORM.BAS der Fall 
ist. 
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8.4.2 Bastc-Listing:VORFORMX.BAS 

100 'VORFORMX.BAS - Programm zum Spezia 1-"Formatleren" fuer Vortex-X-Modul-LU 
110 ' 

120 MODE 2 :PR INT: PR INT"Programm zur Spezia Iformatierung fuer VORTEX-X-Laufwerke 
130 ’ 

140 POKE 8<ABD8,S,2E: ! FORMAT, 2: POKE &ABD8, &E5 : I B :CAT: ! A 
150 ' 

160 PRINT"Diskette liegt nun in Spezialformat vor!" 


Zur Bedienung des letzteren Programmes sei hier nur 
erwähnt, daß unter VDOS gearbeitet wird und das einge¬ 
baute Schneider-Laufwerk das Laufwerk 1 ist. CPC 464- 
Besitzer ohne Sehneider-Laufwerk müssen ggf. noch An¬ 
passungen machen. In der vorliegenden Form arbeitet es 
sicher mit dem CPC 6128. 
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8.5 Sch 1ußwort 

Wenn Sie dieses Buch durchgearbeitet haben, werden Sie 
nicht nur einiges Uber Dateien und deren Verwaltung 
gelernt haben, sondern auch den CPC in vielen Dingen 
besser programmieren können. 

Es konnte und kann von mir nicht auf alle Fragen Ant¬ 
wort gegeben werden. Versuchen Sie anhand der vielen 
Beispielprogramme dann einen Weg zu finden, der auch 
Ihr Problem löst. 

Mit den "superschnei len" Maschinenroutinen, die abge¬ 
druckt sind, werden sie bestimmt Verwaltungen auf¬ 
bauen, die einem professionellen Programm in nichts 
nachstehen was die Geschwindigkeit und die Kapazität 
bei der Datenverwaltung betrifft. 

Bei den Hilfs- und Zusatzprogrammen können auch noch 
viele Minuten gespart werden, wenn die Teile, die vor 
allem zur Demonstration dienen und Bi1dschirm-Ausgaben 
veranlassen, gestrichen werden. Man muß nicht immer 
alles sehen, aber daß der CPC etwas tut, das sollte 
immer angezeigt werden! 

Ich wünsche nochmals viel Erfolg bei der Verwaltung 
von Daten mit Ihrem CPC. 


BezugsqueIle: 

Die Diskette zu diesem Buch ist erhältlich bei: 

Franzis-Software-Service 
Postfach 370120 
8000 München 37 
Tel.: 089-5117-331 
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In diesem Buch werden alle Fragen einer Dateiverwaltung mit dem CPC behan¬ 
delt. Das Spektrum reicht vom einfachen Wörterbuch über eine komfortable 
Verwendung von Datei-Masken bis zur schnellen Ramdisk. Dabei kommen Ba¬ 
sic und Assembler als Programmiersprachen zum Einsatz. 

Zu allen Bereichen werden umfangreiche und leistungsfähige Programme ange- 
boten. Es kam dem Autor bei seinen Darstellungen vor allem darauf an, daß der 
Leser auch mit schwierigen Programmen umzugehen lernt. Das Buch ist also ei¬ 
ne echte, sehr aktuelle Trickkiste für den CPC. 

Der Autor ist ein erfahrener CPC-Spezialist. Wer das Buch gelesen hat, kann er¬ 
folgreich an die Umsetzung seiner eigenen Ideen herangehen. Dabei werden in¬ 
dividuelle Lösungen entstehen, die sich vor professionellen nicht zu verstecken 
brauchen. 
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